diff options
Diffstat (limited to 'lisp/mh-e/mh-show.el')
| -rw-r--r-- | lisp/mh-e/mh-show.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el index 92b9625fc43..87b048dbd60 100644 --- a/lisp/mh-e/mh-show.el +++ b/lisp/mh-e/mh-show.el @@ -612,6 +612,7 @@ still visible.\n") "l" mh-show-list-folders "n" mh-index-new-messages "o" mh-show-visit-folder + "p" mh-show-pack-folder "q" mh-show-index-sequenced-messages "r" mh-show-rescan-folder "s" mh-search @@ -899,13 +900,14 @@ See also `mh-folder-mode'. (interactive) ;; Don't allow Gnus to create buttons while highlighting, maybe this is bad ;; style? - (flet ((gnus-article-add-button (&rest args) nil)) - (let* ((modified (buffer-modified-p)) - (gnus-article-buffer (buffer-name)) - (gnus-cite-face-list `(,@(cdr gnus-cite-face-list) - ,(car gnus-cite-face-list)))) - (gnus-article-highlight-citation t) - (set-buffer-modified-p modified)))) + (mh-cl-flet + ((gnus-article-add-button (&rest args) nil)) + (let* ((modified (buffer-modified-p)) + (gnus-article-buffer (buffer-name)) + (gnus-cite-face-list `(,@(cdr gnus-cite-face-list) + ,(car gnus-cite-face-list)))) + (gnus-article-highlight-citation t) + (set-buffer-modified-p modified)))) (provide 'mh-show) |