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 7983513..881aa79 100644 (file)
--- 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 1a81dc1..4bb330b 100644 (file)
--- 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 d2a67a0..0bf3f0c 100644 (file)
--- 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"))