message.el (message-setup-1): Allow message-default-headers to be a function.

message.el (message-mode-map): Don't bind M-; to comment region, to allow the global comment-dwim to work.

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 5327bf415e69c31d15b13ee6a5681203785cb7a2..a87fb9e610e489ea786e659707418e50ffaca68e 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-21  Julien Danjou  <julien@danjou.info>
+
+       * message.texi (Message Headers): Allow message-default-headers to be a
+       function.
+
 2010-10-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-news.texi: Mention new archive defaults.

diff --git a/doc/misc/message.texi b/doc/misc/message.texi
index 8e9eca55177bdaf5466aa9c41fc690f2a74e6086..76845e4aafe25cc8d56fa1253f959e4c6ac7db65 100644 (file)
--- a/doc/misc/message.texi
+++ b/doc/misc/message.texi
@@ -1451,7 +1451,7 @@ Allegedly.
 @item message-default-headers
 @vindex message-default-headers
 This string is inserted at the end of the headers in all message
-buffers.
+buffers.  If set to a function, the returned results is inserted.
 
 @item message-subject-re-regexp
 @vindex message-subject-re-regexp

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7236a164ab8f0f09a0de4ed3f7a4aca8667ada10..0e41b71b2ce22542f6ef482fedbb1adb42c00080 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,13 @@
+2010-10-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-mode-map): Don't bind M-; to comment region, to
+       allow the global comment-dwim to work.
+
+2010-10-21  Julien Danjou  <julien@danjou.info>
+
+       * message.el (message-setup-1): Allow message-default-headers to be a
+       function.
+
 2010-10-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * shr.el (shr-tag-table): Simplify.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f4c21aa5b4a8443663d737e0c925ffc6246efeba..49bfd4bb934071670e2f692bccf4cca67130bb39 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1139,9 +1139,10 @@ It is a vector of the following headers:
   :error "All header lines must be newline terminated")
 
 (defcustom message-default-headers ""
-  "*A string containing header lines to be inserted in outgoing messages.
-It is inserted before you edit the message, so you can edit or delete
-these lines."
+  "A string containing header lines to be inserted in outgoing messages.
+It is inserted before you edit the message, so you can edit or
+delete these lines.  If set to a function, it is called and its
+result is inserted."
   :version "23.2"
   :group 'message-headers
   :link '(custom-manual "(message)Message Headers")
@@ -2639,7 +2640,6 @@ PGG manual, depending on the value of `mml2015-use'."
 
   (define-key message-mode-map "\C-a" 'message-beginning-of-line)
   (define-key message-mode-map "\t" 'message-tab)
-  (define-key message-mode-map "\M-;" 'comment-region)
 
   (define-key message-mode-map "\M-n" 'message-display-abbrev))
 
@@ -6363,7 +6363,10 @@ are not included."
    headers)
   (delete-region (point) (progn (forward-line -1) (point)))
   (when message-default-headers
-    (insert message-default-headers)
+    (insert
+     (if (functionp message-default-headers)
+         (funcall message-default-headers)
+       message-default-headers))
     (or (bolp) (insert ?\n)))
   (insert mail-header-separator "\n")
   (forward-line -1)