diff options
| author | Chong Yidong | 2008-12-20 21:40:38 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-12-20 21:40:38 +0000 |
| commit | 5e1b5cde6f62c90119af3f45c5988c64e55edee2 (patch) | |
| tree | 98d91339765dc8df76b22db2de720c01c8087f5e | |
| parent | 8eb5f33cde01079cd225330a9983c980082882bf (diff) | |
| download | emacs-5e1b5cde6f62c90119af3f45c5988c64e55edee2.tar.gz emacs-5e1b5cde6f62c90119af3f45c5988c64e55edee2.zip | |
(pmail): Ensure that pmail-mode-hook is run.
| -rw-r--r-- | lisp/mail/pmail.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el index 76949ff95ce..b548a69ca79 100644 --- a/lisp/mail/pmail.el +++ b/lisp/mail/pmail.el | |||
| @@ -875,6 +875,8 @@ If `pmail-display-summary' is non-nil, make a summary for this PMAIL file." | |||
| 875 | (pmail-swap-buffers-maybe) | 875 | (pmail-swap-buffers-maybe) |
| 876 | (if (eq major-mode 'pmail-edit-mode) | 876 | (if (eq major-mode 'pmail-edit-mode) |
| 877 | (error "Exit Pmail Edit mode before getting new mail")) | 877 | (error "Exit Pmail Edit mode before getting new mail")) |
| 878 | (or (and existed (> (buffer-size) 0)) | ||
| 879 | (setq run-mail-hook t)) | ||
| 878 | ;; Insure that the Rmail file is in mbox format, the buffer is in | 880 | ;; Insure that the Rmail file is in mbox format, the buffer is in |
| 879 | ;; Pmail mode and has been scanned to find all the messages | 881 | ;; Pmail mode and has been scanned to find all the messages |
| 880 | ;; (setting the global message variables in the process). | 882 | ;; (setting the global message variables in the process). |