* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72f9248..cce5b84 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+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>.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index a1da229..d3238d4 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -348,6 +348,11 @@ Thank you for your help in stamping out bugs.
 
 ;;; 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"))
@@ -381,10 +386,9 @@ Thank you for your help in stamping out bugs.
                  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

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 3ecb65e..f679d38 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -40,7 +40,7 @@
                     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

diff --git a/lisp/message.el b/lisp/message.el
index a86b885..7a62ec5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -193,7 +193,7 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys',
   :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'."