Commit 98bd608d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-reply-buffer, mail-send-actions):

Mark them as permanent-local.
(mail-mode): Don't set mail-reply-buffer to nil.
parent 35394129
...@@ -164,6 +164,8 @@ If t, it means to insert the contents of the file `mail-signature-file'.") ...@@ -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-reply-buffer nil)
(defvar mail-send-actions nil (defvar mail-send-actions nil
"A list of actions to be performed upon successful sending of a message.") "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 (defvar mail-default-headers nil
"*A string containing header lines, to be inserted in outgoing messages. "*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)." ...@@ -315,7 +317,6 @@ C-c C-v mail-sent-via (add a Sent-via field for each To or CC)."
(interactive) (interactive)
(kill-all-local-variables) (kill-all-local-variables)
(make-local-variable 'mail-reply-buffer) (make-local-variable 'mail-reply-buffer)
(setq mail-reply-buffer nil)
(make-local-variable 'mail-send-actions) (make-local-variable 'mail-send-actions)
(set-syntax-table mail-mode-syntax-table) (set-syntax-table mail-mode-syntax-table)
(use-local-map mail-mode-map) (use-local-map mail-mode-map)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment