Mercurial > emacs

changeset 101426:ad60c4496a16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-insert-inbox-text): Revert replacement of "popmail" by "pormail".
author Glenn Morris <rgm@gnu.org>
date Sat, 24 Jan 2009 03:35:50 +0000
parents e693768f54a2
children 1b7286db7263
files lisp/ChangeLog lisp/mail/rmail.el
diffstat 2 files changed, 14 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Jan 24 03:35:29 2009 +0000
+++ b/lisp/ChangeLog	Sat Jan 24 03:35:50 2009 +0000
@@ -1,3 +1,11 @@
+2009-01-24  Glenn Morris  <rgm@gnu.org>
+
+	* mail/rmail.el (rmail-insert-inbox-text): Revert replacement of
+	"popmail" by "pormail".
+
+	* language/ethio-util.el (rmail-current-message, rmail-message-vector):
+	Remove unneeded declarations.
+
 2009-01-24  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-poly.el (calcFunc-apart): Improve test for
--- a/lisp/mail/rmail.el	Sat Jan 24 03:35:29 2009 +0000
+++ b/lisp/mail/rmail.el	Sat Jan 24 03:35:50 2009 +0000
@@ -1785,18 +1785,18 @@
   (or (memq (file-locked-p buffer-file-name) '(nil t))
       (error "RMAIL file %s is locked"
 	     (file-name-nondirectory buffer-file-name)))
-  (let (file tofile delete-files movemail pormail got-password password)
+  (let (file tofile delete-files movemail popmail got-password password)
     (while files
       ;; Handle remote mailbox names specially; don't expand as filenames
       ;; in case the userid contains a directory separator.
       (setq file (car files))
       (let ((url-data (rmail-parse-url file)))
 	(setq file (nth 0 url-data))
-	(setq pormail (nth 1 url-data))
+	(setq popmail (nth 1 url-data))
 	(setq password (nth 2 url-data))
 	(setq got-password (nth 3 url-data)))
 
-      (if pormail
+      (if popmail
 	  (setq renamep t)
 	(setq file (file-truename
 		    (substitute-in-file-name (expand-file-name file)))))
@@ -1817,13 +1817,13 @@
 		     (expand-file-name buffer-file-name))))
       ;; Always use movemail to rename the file,
       ;; since there can be mailboxes in various directories.
-      (when (not pormail)
+      (when (not popmail)
 	;; On some systems, /usr/spool/mail/foo is a directory
 	;; and the actual inbox is /usr/spool/mail/foo/foo.
 	(if (file-directory-p file)
 	    (setq file (expand-file-name (user-login-name)
 					 file))))
-      (cond (pormail
+      (cond (popmail
 	     (message "Getting mail from the remote server ..."))
 	    ((and (file-exists-p tofile)
 		  (/= 0 (nth 7 (file-attributes tofile))))
@@ -1835,7 +1835,7 @@
       ;; rename or copy the file FILE to TOFILE if and as appropriate.
       (cond ((not renamep)
 	     (setq tofile file))
-	    ((or (file-exists-p tofile) (and (not pormail)
+	    ((or (file-exists-p tofile) (and (not popmail)
 					     (not (file-exists-p file))))
 	     nil)
 	    (t