diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-30 00:50:49 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-30 00:50:49 +0000 |
| commit | 4f3a7d02d5eafad053d26851123f18e387a1eee5 (patch) | |
| tree | bc82869eb0112e833ad75a813f06c060b8d0b974 /lisp/mh-e/mh-folder.el | |
| parent | 0f1f01d652849a378c73d6a7160b128bd065cb96 (diff) | |
| download | emacs-4f3a7d02d5eafad053d26851123f18e387a1eee5.tar.gz | |
(mh-folder-mode): Use add-to-list to modify minor-mode-alias.
Diffstat (limited to 'lisp/mh-e/mh-folder.el')
| -rw-r--r-- | lisp/mh-e/mh-folder.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index cf5aad82ae9..98ecc06d7c2 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -656,9 +656,7 @@ perform the operation on all messages in that region. (make-local-variable 'hl-line-mode) ; avoid pollution (mh-funcall-if-exists hl-line-mode 1) (setq revert-buffer-function 'mh-undo-folder) - (or (assq 'mh-showing-mode minor-mode-alist) - (setq minor-mode-alist - (cons '(mh-showing-mode " Show") minor-mode-alist))) + (add-to-list 'minor-mode-alist '(mh-showing-mode " Show")) (easy-menu-add mh-folder-sequence-menu) (easy-menu-add mh-folder-message-menu) (easy-menu-add mh-folder-folder-menu) |