lisp/gnus/message.el

115   "*Directory from which all other mail file variables are derived."
294 ;;; Start of variables adopted from `message-utils.el'.
380 (make-variable-buffer-local 'message-cross-post-old-target)
412 ;;; End of variables adopted from `message-utils.el'.
474   (defvar gnus-local-organization))
476   (or (and (boundp 'gnus-local-organization)
477 	   (stringp gnus-local-organization)
478 	   gnus-local-organization)
811 generate.  The variables `message-required-news-headers' and
861 (defcustom message-minibuffer-local-map
862   (let ((map (make-sparse-keymap 'message-minibuffer-local-map)))
863     (set-keymap-parent map minibuffer-local-map)
1124 (defsubst message-gnksa-enable-p (feature)
1137 ;;; Internal variables.
1349 ;; `font-lock-defaults' buffer-local variable.
1496 ;;; Internal variables.
1602 (defvar message-bogus-system-names "^localhost\\.\\|\\.local$"
1644   (autoload 'gnus-make-local-hook "gnus-util")
1687 	(mm-enable-multibyte)
2541   ;; syntax-table, local-map: I dunno.
2612   (setq local-abbrev-table text-mode-abbrev-table)
2613   (set (make-local-variable 'message-reply-buffer) nil)
2614   (set (make-local-variable 'message-inserted-headers) nil)
2615   (set (make-local-variable 'message-send-actions) nil)
2616   (set (make-local-variable 'message-exit-actions) nil)
2617   (set (make-local-variable 'message-kill-actions) nil)
2618   (set (make-local-variable 'message-postpone-actions) nil)
2619   (set (make-local-variable 'message-draft-article) nil)
2621   (set (make-local-variable 'facemenu-add-face-function)
2628   (set (make-local-variable 'facemenu-remove-face-function) t)
2629   (set (make-local-variable 'message-reply-headers) nil)
2630   (make-local-variable 'message-newsreader)
2631   (make-local-variable 'message-mailer)
2632   (make-local-variable 'message-post-method)
2633   (set (make-local-variable 'message-sent-message-via) nil)
2634   (set (make-local-variable 'message-checksum) nil)
2635   (set (make-local-variable 'message-mime-part) 0)
2636   (message-setup-fill-variables)
2638   ;; (set (make-local-variable 'comment-start) message-yank-prefix)
2640     (set (make-local-variable 'comment-start) message-yank-prefix)
2641     (set (make-local-variable 'comment-start-skip)
2645     (set (make-local-variable 'font-lock-defaults)
2648 	(set (make-local-variable 'tool-bar-map) (message-make-tool-bar))))
2651   (gnus-make-local-hook 'after-change-functions)
2654 	    nil 'local)
2664     ;; Don't enable multibyte on an indirect buffer.  Maybe enabling
2666     (mm-enable-multibyte))
2667   (set (make-local-variable 'indent-tabs-mode) nil) ;No tabs for indentation.
2670 (defun message-setup-fill-variables ()
2671   "Setup message fill variables."
2672   (set (make-local-variable 'fill-paragraph-function)
2674   (make-local-variable 'paragraph-separate)
2675   (make-local-variable 'paragraph-start)
2676   (make-local-variable 'adaptive-fill-regexp)
2679   (make-local-variable 'adaptive-fill-first-line-regexp)
2701   (make-local-variable 'auto-fill-inhibit-regexp)
2704   (make-local-variable 'normal-auto-fill-function)
3620 		       (if (or (message-gnksa-enable-p 'multiple-copies)
4601 	   (if (message-gnksa-enable-p 'empty-article)
4625       (if (message-gnksa-enable-p 'quoted-text-only)
4647 	 (if (message-gnksa-enable-p 'quoted-text-only)
4856       (mm-enable-multibyte)
4903 		   (let ((default-enable-multibyte-characters t))
4960       (mm-enable-multibyte)
6236 	   (message-gnksa-enable-p 'cancel-messages)
6464 	  (if (local-variable-p 'gnus-article-decoded-p (current-buffer))
6483        (mm-enable-multibyte)
6523 	   (mm-enable-multibyte)
6606 (eval-when-compile (defvar rmail-enable-mime-composing))
6613   (setq rmail-enable-mime-composing t)
6707     (mm-enable-multibyte)
6830 ;; Note: The :set function in the `message-tool-bar*' variables will only
6835 Setter function for custom variables."
7080 Then clone the local variables and values from the old buffer to the
7090   "Clone the local variables from BUFFER to the current buffer."
7093 		  (buffer-local-variables)))
7096      (lambda (local)
7097        (when (and (consp local)
7098 		  (car local)
7099 		  (string-match regexp (symbol-name (car local)))
7101 		      (string-match varstr (symbol-name (car local)))))
7103 	   (set (make-local-variable (car local))
7104 		(cdr local)))))
7163 	    (minibuffer-local-map message-minibuffer-local-map))
7166 	  (minibuffer-local-map message-minibuffer-local-map))