From a06013581bd9c2962112fe72336e7b623b3a6ea4 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 6 Jun 2000 00:52:24 +0000
Subject: [PATCH] * gnus-vers.el (gnus-revision-number): Increment to 03.

* message.el (message-fix-before-sending): Don't check for invisible X-Face
fields if `message-check-ignore-invisible-x-face-field' is non-nil.
(message-send): Call `message-fix-before-sending' before encoding.
(message-check-ignore-invisible-x-face-field): New user option.
---
 ChangeLog         |   10 ++++++++++
 lisp/gnus-vers.el |    2 +-
 lisp/message.el   |   24 ++++++++++++++++++++++--
 3 files changed, 33 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6df3019..2bbc17a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2000-06-06  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 03.
+
+	* lisp/message.el (message-fix-before-sending): Don't check for
+	invisible X-Face fields if
+	`message-check-ignore-invisible-x-face-field' is non-nil.
+	(message-send): Call `message-fix-before-sending' before encoding.
+	(message-check-ignore-invisible-x-face-field): New user option.
+
 2000-06-01  KANEMATSU Daiji <kanematu@sra.co.jp>
 
 	* texi/gnus-ja.texi (gnus-summary-hide-all-threads): Fix typo.
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 1094da8..ae479b7 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -31,7 +31,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "02"
+(defconst gnus-revision-number "03"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
diff --git a/lisp/message.el b/lisp/message.el
index 57b6b44..5dcefef 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -205,6 +205,11 @@ shorten-followup-to existing-newsgroups buffer-file-name unchanged
 newsgroups."
   :group 'message-news)
 
+(defcustom message-check-ignore-invisible-x-face-field t
+  "Non-nil means don't check for invisible X-Face fields before sending."
+  :type 'boolean
+  :group 'message-sending)
+
 (defcustom message-required-news-headers
   '(From Newsgroups Subject Date Message-ID
 	 (optional . Organization) Lines
@@ -2614,6 +2619,7 @@ It should typically alter the sending method in some way or other."
     (undo-boundary)
     (let ((inhibit-read-only t))
       (put-text-property (point-min) (point-max) 'read-only nil))
+    (message-fix-before-sending)
     (run-hooks 'message-send-hook)
     (message "Sending...")
     (let ((message-encoding-buffer
@@ -2628,7 +2634,6 @@ It should typically alter the sending method in some way or other."
 	(erase-buffer)
 	(insert-buffer message-edit-buffer)
 	(funcall message-encode-function)
-	(message-fix-before-sending)
 	(while (and success
 		    (setq elem (pop alist)))
 	  (when (or (not (funcall (cadr elem)))
@@ -2682,7 +2687,22 @@ It should typically alter the sending method in some way or other."
   (goto-char (point-max))
   (unless (bolp)
     (insert "\n"))
-  ;; Delete all invisible text.
+  ;; Expose all invisible X-Face fields.
+  (when message-check-ignore-invisible-x-face-field
+    (message-narrow-to-headers)
+    (let ((inhibit-point-motion-hooks t)
+	  (case-fold-search t))
+      (while (not (eobp))
+	(if (looking-at "X-Face:")
+	    (put-text-property (point)
+			       (progn
+				 (while (progn (forward-line 1)
+					       (looking-at "[\t ]")))
+				 (point))
+			       'invisible nil)
+	  (forward-line 1))))
+    (widen))
+  ;; Expose all invisible text.
   (message-check 'invisible-text
     (when (text-property-any (point-min) (point-max) 'invisible t)
       (put-text-property (point-min) (point-max) 'invisible nil)
-- 
1.7.10.4