[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/pmail.el,v
From: |
Paul Michael Reilly |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/pmail.el,v |
Date: |
Tue, 14 Oct 2008 12:08:22 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Paul Michael Reilly <pmr> 08/10/14 12:08:21
Index: pmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- pmail.el 11 Oct 2008 19:56:16 -0000 1.16
+++ pmail.el 14 Oct 2008 12:08:21 -0000 1.17
@@ -875,22 +875,14 @@
(setq pmail-buffers-swapped-p nil)
(if (eq major-mode 'pmail-edit-mode)
(error "Exit Pmail Edit mode before getting new mail"))
- (if (and existed (> (buffer-size) 0))
- ;; Buffer not new and not empty; ensure in proper mode, but that's all.
- (or (eq major-mode 'pmail-mode)
- (progn (pmail-mode-2)
- (setq run-mail-hook t)))
- (setq run-mail-hook t)
- (pmail-mode-2)
+ ;; Insure that the Rmail file is in mbox format, the buffer is in
+ ;; Pmail mode and has been scanned to find all the messages.
(pmail-convert-file-maybe)
- (goto-char (point-max)))
- ;; As we have read a file by raw-text, the buffer is set to
- ;; unibyte. We must make it multibyte if necessary.
- (if (and pmail-enable-multibyte
- (not enable-multibyte-characters))
- (set-buffer-multibyte t))
- ;; If necessary, scan to find all the messages.
+ (unless (eq major-mode 'pmail-mode)
+ (pmail-mode-2))
+ (goto-char (point-max))
(pmail-maybe-set-message-counters)
+ ;; Show the first unread message and process summary mode.
(unwind-protect
(unless (and (not file-name-arg) (pmail-get-new-mail))
(pmail-show-message-maybe (pmail-first-unseen-message)))