diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:25:40 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:25:40 +0000 |
commit | ac6aa6a3dc406e9efedfcfc4970e6e2f21adcd58 (patch) | |
tree | 9b164f0e56aecdd9ce00452f43506d4077527bdb | |
parent | afa29b021bb8fdf305876c16cadf35138db407cb (diff) | |
download | emacs-ac6aa6a3dc406e9efedfcfc4970e6e2f21adcd58.tar.gz |
(mail-reply-buffer, mail-send-actions):
Mark them as permanent-local.
(mail-mode): Don't set mail-reply-buffer to nil.
-rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index da3707f2179..516aad5128f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -164,6 +164,8 @@ If t, it means to insert the contents of the file `mail-signature-file'.") (defvar mail-reply-buffer nil) (defvar mail-send-actions nil "A list of actions to be performed upon successful sending of a message.") +(put 'mail-reply-buffer 'permanent-local t) +(put 'mail-send-actions 'permanent-local t) (defvar mail-default-headers nil "*A string containing header lines, to be inserted in outgoing messages. @@ -315,7 +317,6 @@ C-c C-v mail-sent-via (add a Sent-via field for each To or CC)." (interactive) (kill-all-local-variables) (make-local-variable 'mail-reply-buffer) - (setq mail-reply-buffer nil) (make-local-variable 'mail-send-actions) (set-syntax-table mail-mode-syntax-table) (use-local-map mail-mode-map) |