[Emacs-diffs] emacs/lisp/mail pmail.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/20 21:40:38

Modified files:
        lisp/mail      : pmail.el 

Log message:
        (pmail): Ensure that pmail-mode-hook is run.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.35&r2=1.36

Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- pmail.el    20 Dec 2008 07:03:06 -0000      1.35
+++ pmail.el    20 Dec 2008 21:40:38 -0000      1.36
@@ -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).