2003-04-27 Lars Magne Ingebrigtsen <larsi@gnus.org>

	* message.el (message-required-headers): Add In-Reply-To.

2003-04-27  Marshall T. Vandegrift  <vandem2@rpi.edu>

	* gnus-fun.el (gnus-face-from-file): Bind coding-system-for-read
	to binary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2c6759..93db33f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-04-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-required-headers): Add In-Reply-To.
+
+2003-04-27  Marshall T. Vandegrift  <vandem2@rpi.edu>
+
+       * gnus-fun.el (gnus-face-from-file): Bind coding-system-for-read
+       to binary.
+
 2003-04-27  Jesper Harder  <harder@ifa.au.dk>
 
        * mml.el (mml-preview): do.

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index f906dec..8791640 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -111,10 +111,11 @@ Output to the current buffer, replace text, and don't mingle error."
       (while (and (not done)
                  (> quant 1))
        (setq attempt
-             (gnus-shell-command-to-string
-              (format gnus-convert-image-to-face-command
-                      (shell-quote-argument (expand-file-name file))
-                      quant)))
+             (let ((coding-system-for-read 'binary))
+               (gnus-shell-command-to-string
+                (format gnus-convert-image-to-face-command
+                        (shell-quote-argument (expand-file-name file))
+                        quant))))
        (if (> (length attempt) 726)
            (progn
              (setq quant (- quant 2))

diff --git a/lisp/message.el b/lisp/message.el
index c2f7779..9924662 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -193,7 +193,8 @@ Checks include `subject-cmsg', `multiple-headers', `sendsys',
   :group 'message-news
   :type '(repeat sexp))                        ; Fixme: improve this
 
-(defcustom message-required-headers '((optional . References) From)
+(defcustom message-required-headers '((optional . References)
+                                     From (optional . In-Reply-To))
   "*Headers to be generated or prompted for when sending a message.
 Also see `message-required-news-headers' and
 `message-required-mail-headers'."