From: yamaoka Date: Fri, 19 Jan 2001 00:43:32 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_0-05-quimby~4 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd5e919f31e9dc491219e5bc64127ce3d06201a5;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd30ce0..8f2c5ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,25 @@ +2001-01-18 19:00:00 ShengHuo ZHU + + * gnus-sum.el (gnus-summary-read-group-1): Don't test dead + non-native groups. + +2001-01-18 18:00:00 ShengHuo ZHU + + * message.el (message-yank-original): Understand + universal-argument. + +2001-01-18 16:00:00 ShengHuo ZHU + + * 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 + + * rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is + one. + 2001-01-16 Simon Josefsson * 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,9 @@ +2001-01-18 16:00:00 ShengHuo ZHU + + * gnus.texi (Hiding Headers): Add. + + * emacs-mime.texi: Set dircategory to Emacs. + 2001-01-16 Jesper Harder * gnus.texi (Group Line Specification): Add. diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi index f0f5be4..a41377b 100644 --- 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 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -8801,14 +8801,17 @@ Gnus $B$O%X%C%@!<$NJB$YBX$((B(sort)$B$b9T$$$^$9(B ($B$3$l$O%G%#%U%)%k%H$G9T @table @code @item empty $B6u$N%X%C%@!<$rA4$F>C5n$7$^$9!#(B -@item newsgroups -@code{Newsgroups} $BMs$,8=:_$N%0%k!<%WL>$7$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#(B @item followup-to @code{Followup-To} $BMs$,(B @code{Newsgroups} $BMs$HF10l$G$"$k>l9g$K$O>C5n$7$^(B $B$9!#(B @item reply-to @code{Reply-To} $BMs$,(B @code{From} $BMs$HF1$8%"%I%l%9$r<($7$F$$$k>l9g$K$O>C(B $B5n$7$^$9!#(B +@item newsgroups +@code{Newsgroups} $BMs$,8=:_$N%0%k!<%WL>$7$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#(B +@item to-address +@code{To} $BMs$,8=:_$N%0%k!<%W$N(B @code{to-address} $B%Q%i%a!<%?$HF1$8$b$N$7(B +$B$+4^$s$G$$$J$$>l9g$K$O>C5n$7$^$9!#(B @item date $B$=$N5-;v$,2a5n;0F|0JFb$N$b$N$G$"$l$P!"(B@code{Date} $BMs$r>C5n$7$^$9!#(B @item long-to diff --git a/texi/gnus.texi b/texi/gnus.texi index 7cceb33..b4ab127 100644 --- 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.