From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 May 1997 20:17:08 +0000 (+0000)
Subject: (rmail-retry-failure): Rename local to rmail-this-buffer.
X-Git-Tag: emacs-20.1~2124
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2079601b890ae16cf3c80dca0dfcb12118ffae10;p=emacs.git

(rmail-retry-failure): Rename local to rmail-this-buffer.

(rmail-primary-inbox-list): Don't use backquote.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 811b485892d..765160e9eb1 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -170,11 +170,13 @@ See also `rmail-highlight-face'."
 `nil' means the default, which is (\"/usr/spool/mail/$USER\")
 \(the name varies depending on the operating system,
 and the value of the environment variable MAIL overrides it)."
-  :type `(choice (const :tag "Default" nil)
-		 (repeat :value (,(or (getenv "MAIL")
-				      (concat "/var/spool/mail/"
-					      (getenv "USER"))))
-			 file))
+  ;; Don't use backquote here, because we don't want to need it
+  ;; at load time.
+  :type (list 'choice '(const :tag "Default" nil)
+	      (list 'repeat ':value ,(or (getenv "MAIL")
+					 (concat "/var/spool/mail/"
+						 (getenv "USER")))
+		    'file))
   :group 'rmail-retrieve
   :group 'rmail-files)
 
@@ -2725,7 +2727,7 @@ The variable `rmail-retry-ignored-headers' is a regular expression
 specifying headers which should not be copied into the new message."
   (interactive)
   (require 'mail-utils)
-  (let ((rmail-buffer (current-buffer))
+  (let ((rmail-this-buffer (current-buffer))
 	(msgnum rmail-current-message)
 	bounce-start bounce-end bounce-indent resending)
     (save-excursion
@@ -2797,9 +2799,9 @@ specifying headers which should not be copied into the new message."
     ;; Turn off the usual actions for initializing the message body
     ;; because we want to get only the text from the failure message.
     (let (mail-signature mail-setup-hook)
-      (if (rmail-start-mail nil nil nil nil nil rmail-buffer
+      (if (rmail-start-mail nil nil nil nil nil rmail-this-buffer
 			    (list (list 'rmail-mark-message
-					rmail-buffer
+					rmail-this-buffer
 					(aref rmail-msgref-vector msgnum)
 					"retried")))
 	  ;; Insert original text as initial text of new draft message.
@@ -2807,7 +2809,7 @@ specifying headers which should not be copied into the new message."
 	  ;; of the previous message was probably read-only.
 	  (let ((inhibit-read-only t))
 	    (erase-buffer)
-	    (insert-buffer-substring rmail-buffer bounce-start bounce-end)
+	    (insert-buffer-substring rmail-this-buffer bounce-start bounce-end)
 	    (goto-char (point-min))
 	    (if bounce-indent
 		(indent-rigidly (point-min) (point-max) bounce-indent))
@@ -2825,7 +2827,7 @@ specifying headers which should not be copied into the new message."
 		    (insert "BCC: " (user-login-name) "\n"))))
 	    (insert mail-header-separator)
 	    (mail-position-on-field (if resending "Resent-To" "To") t)
-	    (set-buffer rmail-buffer)
+	    (set-buffer rmail-this-buffer)
 	    (rmail-beginning-of-message))))))
 
 (defun rmail-summary-exists ()