right.
(gnus-inews-make-draft): New function.
(gnus-setup-message): Use it.
* message.el (message-required-headers): Add From.
+2003-01-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-msg.el (gnus-setup-message): Get the evaliation order
+ right.
+ (gnus-inews-make-draft): New function.
+ (gnus-setup-message): Use it.
+
+ * message.el (message-required-headers): Add From.
+
2003-01-02 Katsumi Yamaoka <yamaoka@jpl.org>
Trivial patch from Norbert Koch <nk@viteno.net>.
;;; Internal functions.
+(defun gnus-inews-make-draft ()
+ `(lambda ()
+ (gnus-inews-make-draft-meta-information
+ ,gnus-newsgroup-name ,gnus-article-reply)))
+
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
(let ((winconf (make-symbol "gnus-setup-message-winconf"))
message-required-headers)
(when (and ,group
(not (string= ,group "")))
- (push '(,(intern gnus-draft-meta-information-header)
- . (lambda ()
- (gnus-inews-make-draft-meta-information
- ,gnus-newsgroup-name ,gnus-article-reply)))
+ (push (cons
+ (intern gnus-draft-meta-information-header)
+ (gnus-inews-make-draft))
message-required-headers))
(unwind-protect
(progn
mouse-minibuffer-check mouse-movement-p mouse-scroll-subr
overlay-lists pgg-parse-crc24-string posn-point
posn-window read-event set-buffer-multibyte track-mouse
- window-edges))
+ window-edges w3m-region))
(maybe-bind '(adaptive-fill-first-line-regexp
buffer-display-table buffer-file-coding-system
current-language-environment
:group 'message-news
:type '(repeat sexp)) ; Fixme: improve this
-(defcustom message-required-headers '((optional . References))
+(defcustom message-required-headers '((optional . References) From)
"*Headers to be generated or promted for when sending a message.
Also see `message-required-news-headers' and
1message-required-mail-headers'."