changeset 100620:65cf390be440

(pmail): Ensure that pmail-mode-hook is run.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 20 Dec 2008 21:40:38 +0000
parents d2de92ae6771
children c8e80afb3a47
files lisp/mail/pmail.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/pmail.el	Sat Dec 20 21:40:19 2008 +0000
+++ b/lisp/mail/pmail.el	Sat Dec 20 21:40:38 2008 +0000
@@ -875,6 +875,8 @@
     (pmail-swap-buffers-maybe)
     (if (eq major-mode 'pmail-edit-mode)
 	(error "Exit Pmail Edit mode before getting new mail"))
+    (or (and existed (> (buffer-size) 0))
+	(setq run-mail-hook t))
     ;; Insure that the Rmail file is in mbox format, the buffer is in
     ;; Pmail mode and has been scanned to find all the messages
     ;; (setting the global message variables in the process).