From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 18 Jan 2001 21:29:12 +0000 (+0000)
Subject: 2001-01-18 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=aebeae46f010d154edc349be4fc706af3fe73b84;p=gnus

2001-01-18 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-boring-article-headers): Add to-address.
	(article-hide-boring-headers): Ditto.

	* mm-view.el (mm-inline-message): Insert a newline unless bolp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79835137a..881aa799d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-18 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-art.el (gnus-boring-article-headers): Add to-address.
+	(article-hide-boring-headers): Ditto.
+
+	* mm-view.el (mm-inline-message): Insert a newline unless bolp.
+
 2001-01-18 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1a81dc13e..4bb330bdc 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -168,9 +168,10 @@ this list."
 (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
   "Headers that are only to be displayed if they have interesting data.
 Possible values in this list are `empty', `newsgroups', `followup-to',
-`reply-to', `date', `long-to', and `many-to'."
+`to-address', `reply-to', `date', `long-to', and `many-to'."
   :type '(set (const :tag "Headers with no content." empty)
 	      (const :tag "Newsgroups with only one group." newsgroups)
+	      (const :tag "To identical to to-address." to-address)
 	      (const :tag "Followup-to identical to newsgroups." followup-to)
 	      (const :tag "Reply-to identical to from." reply-to)
 	      (const :tag "Date less than four days old." date)
@@ -1314,6 +1315,19 @@ always hide."
 				gnus-newsgroup-name
 			      "")))
 		(gnus-article-hide-header "newsgroups")))
+	     ((eq elem 'to-address)
+	      (let ((to (message-fetch-field "to"))
+		    (to-address
+		     (gnus-group-find-parameter 
+		      (if (boundp 'gnus-newsgroup-name)
+			  gnus-newsgroup-name "") 'to-address)))
+		(when (and to to-address
+			   (ignore-errors
+			     (equal
+			      ;; only one address in To
+			      (nth 1 (mail-extract-address-components to))
+			      to-address)))
+		  (gnus-article-hide-header "to"))))
 	     ((eq elem 'followup-to)
 	      (when (equal (message-fetch-field "followup-to")
 			   (message-fetch-field "newsgroups"))
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index d2a67a03a..0bf3f0c53 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -223,6 +223,7 @@
 
 (defun mm-inline-message (handle)
   (let ((b (point))
+	(bolp (bolp))
 	(charset (mail-content-type-get
 		  (mm-handle-type handle) 'charset))
 	gnus-displaying-mime handles)
@@ -243,6 +244,9 @@
 	  (run-hooks 'gnus-article-decode-hook)
 	  (gnus-article-prepare-display)
 	  (setq handles gnus-article-mime-handles))
+	(goto-char (point-min))
+	(unless bolp
+	  (insert "\n"))
 	(goto-char (point-max))
 	(unless (bolp)
 	  (insert "\n"))