Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd30ce0..8f2c5ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,25 @@
+2001-01-18 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-read-group-1): Don't test dead
+       non-native groups.
+
+2001-01-18 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-yank-original): Understand
+       universal-argument.
+
+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
+       one.
+
 2001-01-16  Simon Josefsson  <simon@josefsson.org>
 
        * message.el (message-make-in-reply-to): Add comment to message-id

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 2872d70..eed09b6 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -178,9 +178,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)
@@ -1387,6 +1388,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/gnus-sum.el b/lisp/gnus-sum.el
index e929794..af835dd 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2978,9 +2978,9 @@ If SHOW-ALL is non-nil, already read articles are also listed."
                                        kill-buffer no-display
                                        &optional select-articles)
   ;; Killed foreign groups can't be entered.
-  (when (and (not (gnus-group-native-p group))
-            (not (gnus-gethash group gnus-newsrc-hashtb)))
-    (error "Dead non-native groups can't be entered"))
+  ;;  (when (and (not (gnus-group-native-p group))
+  ;;        (not (gnus-gethash group gnus-newsrc-hashtb)))
+  ;;    (error "Dead non-native groups can't be entered"))
   (gnus-message 5 "Retrieving newsgroup: %s..." group)
   (let* ((new-group (gnus-summary-setup-buffer group))
         (quit-config (gnus-group-quit-config group))

diff --git a/lisp/message.el b/lisp/message.el
index 64976bf..cc3359c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2556,7 +2556,8 @@ be added to \"References\" field.
                           (mapconcat 'identity (nreverse refs) " "))))
              (backward-delete-char 1)))))
 
-      (funcall message-cite-function)
+      (unless arg
+       (funcall message-cite-function))
       (message-exchange-point-and-mark)
       (unless (bolp)
        (insert ?\n))

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"))

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 79bdba5..1904d48 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -323,7 +323,9 @@ The buffer may be narrowed."
          (goto-char (or break qword-break))
          (setq break nil
                qword-break nil)
-         (insert "\n ")
+         (if (looking-at " \t")
+             (insert "\n")
+           (insert "\n "))
          (setq bol (1- (point)))
          ;; Don't break before the first non-LWSP characters.
          (skip-chars-forward " \t")
@@ -355,7 +357,9 @@ The buffer may be narrowed."
        (goto-char (or break qword-break))
        (setq break nil
              qword-break nil)
-       (insert "\n ")
+         (if (looking-at " \t")
+             (insert "\n")
+           (insert "\n "))
        (setq bol (1- (point)))
        ;; Don't break before the first non-LWSP characters.
        (skip-chars-forward " \t")

diff --git a/texi/ChangeLog b/texi/ChangeLog
index b6a0f74..f46d193 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-18 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.texi (Hiding Headers): Add.
+
+       * emacs-mime.texi: Set dircategory to Emacs.
+
 2001-01-16  Jesper Harder <harder@ifa.au.dk>
 
        * gnus.texi (Group Line Specification): Add.

diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi
index f0f5be4..a41377b 100644 (file)
--- a/texi/emacs-mime.texi
+++ b/texi/emacs-mime.texi
@@ -5,7 +5,7 @@
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
-@dircategory Editors
+@dircategory Emacs
 @direntry
 * Emacs MIME: (emacs-mime).   The MIME de/composition library.
 @end direntry

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 62817cd..ccb208a 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -8801,14 +8801,17 @@ Gnus \e$B$O%X%C%@!<$NJB$YBX$(\e(B(sort)\e$B$b9T$$$^$9\e(B (\e$B$3$l$O%G%#%U%)%k%H$G9T
 @table @code
 @item empty
 \e$B6u$N%X%C%@!<$rA4$F>C5n$7$^$9!#\e(B
-@item newsgroups
-@code{Newsgroups} \e$BMs$,8=:_$N%0%k!<%WL>$7$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#\e(B
 @item followup-to
 @code{Followup-To} \e$BMs$,\e(B @code{Newsgroups} \e$BMs$HF10l$G$"$k>l9g$K$O>C5n$7$^\e(B
 \e$B$9!#\e(B
 @item reply-to
 @code{Reply-To} \e$BMs$,\e(B @code{From} \e$BMs$HF1$8%"%I%l%9$r<($7$F$$$k>l9g$K$O>C\e(B
 \e$B5n$7$^$9!#\e(B
+@item newsgroups
+@code{Newsgroups} \e$BMs$,8=:_$N%0%k!<%WL>$7$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#\e(B
+@item to-address
+@code{To} \e$BMs$,8=:_$N%0%k!<%W$N\e(B @code{to-address} \e$B%Q%i%a!<%?$HF1$8$b$N$7\e(B
+\e$B$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#\e(B
 @item date
 \e$B$=$N5-;v$,2a5n;0F|0JFb$N$b$N$G$"$l$P!"\e(B@code{Date} \e$BMs$r>C5n$7$^$9!#\e(B
 @item long-to

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7cceb33..b4ab127 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -9223,6 +9223,9 @@ Remove the @code{Reply-To} header if it lists the same address as the
 @item newsgroups
 Remove the @code{Newsgroups} header if it only contains the current group
 name.
+@item to-address
+Remove the @code{To} header if it only contains the address identical to
+the current groups's @code{to-address} parameter.
 @item date
 Remove the @code{Date} header if the article is less than three days
 old.