* gnus-msg.el (gnus-setup-message): Add gnus-message-citation-mode.
(gnus-message-highlight-citation): Move defcustom here from
gnus-cite.el.
(gnus-message-citation-mode): Autoload.
2006-12-26 Reiner Steib <Reiner.Steib@gmx.de>
+ * gnus-cite.el (gnus-message-highlight-citation): Move to gnus-msg.el.
+
+ * gnus-msg.el (gnus-setup-message): Add gnus-message-citation-mode.
+ (gnus-message-highlight-citation): Move defcustom here from
+ gnus-cite.el.
+ (gnus-message-citation-mode): Autoload.
+
* gnus-cite.el: Adjust Oliver's code to Gnus namespace. Add some
checks to make it compile with XEmacs.
(gnus-message-citation-mode): New minor mode.
"Turn on `gnus-message-citation-mode'."
(gnus-message-citation-mode -1))
-;; (add-hook 'gnus-message-setup-hook 'turn-on-gnus-message-citation-mode)
-(defcustom gnus-message-highlight-citation (fboundp 'font-lock-add-keywords)
- "Enable highlighting of different citation levels in message-mode."
- :version "23.0" ;; No Gnus
- :group 'gnus-cite
- :group 'gnus-message
- :type 'boolean)
-
(gnus-ems-redefine)
(provide 'gnus-cite)
:group 'gnus-message
:type 'boolean)
+(defcustom gnus-message-highlight-citation (fboundp 'font-lock-add-keywords)
+ "Enable highlighting of different citation levels in message-mode."
+ :version "23.0" ;; No Gnus
+ :group 'gnus-cite
+ :group 'gnus-message
+ :type 'boolean)
+
+(autoload 'gnus-message-citation-mode "gnus-msg" nil t)
+
;;; Internal variables.
(defvar gnus-inhibit-posting-styles nil
(set (make-local-variable 'gnus-message-group-art)
(cons ,group ,article))
(set (make-local-variable 'gnus-newsgroup-name) ,group)
+ ;; Enable highlighting of different citation levels
+ (when gnus-message-highlight-citation
+ (gnus-message-citation-mode 1))
(gnus-run-hooks 'gnus-message-setup-hook)
(if (eq major-mode 'message-mode)
(let ((mbl1 mml-buffer-list))