From 03811a63999fb82c36c14744297e7a5ccc75fb7c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 21 Jan 2002 08:01:02 +0000 Subject: [PATCH] Synch with Oort Gnus. --- ChangeLog | 9 +++++++ lisp/ChangeLog | 42 ++++++++++++++++++++++++++++++- lisp/gnus-agent.el | 3 ++- lisp/gnus-art.el | 2 +- lisp/gnus-ems.el | 11 +++------ lisp/gnus-group.el | 2 +- lisp/gnus-util.el | 7 ++++++ lisp/gnus-vers.el | 6 ++--- lisp/imap.el | 8 +++--- lisp/message.el | 3 ++- lisp/nndoc.el | 12 ++++++++- lisp/nnfolder.el | 16 ++++++------ lisp/nnheader.el | 33 +++++++++++++++++++++++++ lisp/nnkiboze.el | 5 ++-- lisp/nnmail.el | 7 +++--- lisp/smiley-ems.el | 25 ++++++------------- texi/ChangeLog | 10 ++++++++ texi/gnus-ja.texi | 67 ++++++++++++++++++++++++++++++++++++-------------- texi/gnus.texi | 61 ++++++++++++++++++++++++++++++++++----------- texi/message-ja.texi | 2 +- texi/message.texi | 2 +- 21 files changed, 246 insertions(+), 87 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5f69238..f44e154 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,14 @@ 2002-01-21 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.15.6 revision 00. + + * lisp/nnheader.el (std11-unfold-region): New function copied from + `rfc2047-unfold-region'. + (std11-unfold-field): New function. + (mail-header-unfold-field): Alias to `std11-unfold-field'. + +2002-01-21 Katsumi Yamaoka + * lisp/gnus-vers.el (gnus-revision-number): Increment to 02 (synch with the released version of Oort Gnus v0.05). diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17646c7..00159f5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,48 @@ 2002-01-20 Lars Magne Ingebrigtsen - * gnus-util.el (gnus-completing-read): Remove + * nnfolder.el (nnfolder-request-accept-article): Unfold + x-from-line. + (nnfolder-request-replace-article): Ditto. + +2002-01-20 Nevin Kapur + + * gnus-group.el (gnus-group-best-unread-group): Use the right + positioning function. + +2002-01-20 Lars Magne Ingebrigtsen + + * smiley-ems.el (smiley-region): Use new function. + (smiley-update-cache): Use general image functions. + (smiley-region): Use general functions. + + * gnus-util.el (gnus-graphic-display-p): New function. + + * nnmail.el (nnmail-article-group): Allow outputting traces of + non-strings. + + * nndoc.el (nndoc-type-alist): Rules for exim bounces. + (nndoc-exim-bounce-type-p): New function. + + * message.el (message-dont-send): Doc fix. + + * gnus-util.el (gnus-completing-read): Remove inherit-input-method. + * gnus-art.el (gnus-treat-smiley): Doc fix. + + * gnus-agent.el (gnus-agent-fetch-headers): Ignore seen and recent + articles. + +2002-01-19 Simon Josefsson + + * imap.el (imap-gssapi-open): Don't wait for logout to complete. + (imap-kerberos4-open): Ditto. + (imap-open): Set port correctly, don't set auth. + +2002-01-20 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bump version number. + 2002-01-20 05:33:30 Lars Magne Ingebrigtsen * gnus.el: Oort Gnus v0.05 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index eacc400..364ac0a 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1036,7 +1036,8 @@ the actual number of articles toggled is returned." (setq articles (nthcdr i articles)))) ;; add article with marks to list of article headers we want to fetch. (dolist (arts (gnus-info-marks (gnus-get-info group))) - (setq articles (gnus-range-add articles (cdr arts)))) + (unless (memq (car arts) '(seen recent)) + (setq articles (gnus-range-add articles (cdr arts))))) (setq articles (sort (gnus-uncompress-sequence articles) '<)) ;; Remove known articles. (when (gnus-agent-load-alist group) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b5ca7d8..3613907 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1884,7 +1884,7 @@ unfolded." (goto-char (point-max)))))) (defun gnus-treat-smiley () - "Display textual emoticons (\"smileys\") as small graphical icons." + "Toggle display of textual emoticons (\"smileys\") as small graphical icons." (interactive) (unless (featurep 'xemacs) (when (and (>= emacs-major-version 21) diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 6d0d24e..6f30ec4 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -48,13 +48,10 @@ (autoload 'gnus-xmas-redefine "gnus-xmas") (autoload 'appt-select-lowest-window "appt")) -(cond ((featurep 'xemacs) - (autoload 'smiley-region "smiley")) - ;; override XEmacs version - ((>= emacs-major-version 21) - (autoload 'smiley-region "smiley-ems")) - (t - (autoload 'smiley-region "smiley-mule"))) +(if (or (featurep 'xemacs) + (>= emacs-major-version 21)) + (autoload 'smiley-region "smiley-ems") + (autoload 'smiley-region "smiley-mule")) (defun gnus-kill-all-overlays () "Delete all overlays in the current buffer." diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 98d08e3..e4e7bd7 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2085,7 +2085,7 @@ If EXCLUDE-GROUP, do not go to that group." (forward-line 1)) (when best-point (goto-char best-point)) - (gnus-summary-position-point) + (gnus-group-position-point) (and best-point (gnus-group-group-name)))) (defun gnus-group-first-unread-group () diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index fe2d0e0..4edf01f 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1300,6 +1300,13 @@ SPEC is a predicate specifier that contains stuff like `or', `and', history (car (symbol-value history)))) +(defun gnus-graphic-display-p () + (or (and (fboundp 'display-graphic-p) + (display-graphic-p)) + ;;;!!!This is bogus. Fixme! + (and (featurep 'xemacs) + t))) + (provide 'gnus-util) ;;; gnus-util.el ends here diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 21b9843..fa04105 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -34,16 +34,16 @@ (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "02" +(defconst gnus-revision-number "00" "Revision number for this version of gnus.") ;; Product information of this gnus. (product-provide 'gnus-vers (product-define "T-gnus" nil - (list 6 15 5 + (list 6 15 6 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "0.05" +(defconst gnus-original-version-number "0.06" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/imap.el b/lisp/imap.el index ca6cc64..363b75e 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -518,7 +518,7 @@ If ARGS, PROMPT is used as an argument to `format'." (not (string-match "failed" response)))) (setq done process) (if (memq (process-status process) '(open run)) - (imap-send-command-wait "LOGOUT")) + (imap-send-command "LOGOUT")) (delete-process process) nil))))) done)) @@ -576,7 +576,7 @@ If ARGS, PROMPT is used as an argument to `format'." (not (string-match "failed" response)))) (setq done process) (if (memq (process-status process) '(open run)) - (imap-send-command-wait "LOGOUT")) + (imap-send-command "LOGOUT")) (delete-process process) nil))))) done)) @@ -948,8 +948,8 @@ necessery. If nil, the buffer name is generated." (set-buffer-multibyte nil) (buffer-disable-undo) (setq imap-server (or server imap-server)) - (setq imap-port imap-port) - (setq imap-auth imap-auth) + (setq imap-port (or port imap-port)) + (setq imap-auth (or auth imap-auth)) (message "imap: Reconnecting with stream `%s'..." stream) (if (null (let ((imap-stream stream)) (imap-open-1 (current-buffer)))) diff --git a/lisp/message.el b/lisp/message.el index b438468..abefb93 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2893,7 +2893,8 @@ The text will also be indented the normal way." t))) (defun message-dont-send () - "Don't send the message you have been editing." + "Don't send the message you have been editing. +Instead, just auto-save the buffer and then bury it." (interactive) (message-save-drafts) (let ((actions message-postpone-actions) diff --git a/lisp/nndoc.el b/lisp/nndoc.el index a4a639f..4d1fa8c 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -44,7 +44,7 @@ One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward', `rfc934', `rfc822-forward', `mime-parts', `standard-digest', `slack-digest', `clari-briefs', `nsmail', `outlook', `oe-dbx', -`mailman' or `guess'.") +`mailman', `exim-bounce', or `guess'.") (defvoo nndoc-post-type 'mail "*Whether the nndoc group is `mail' or `post'.") @@ -58,6 +58,9 @@ from the document.") `((mmdf (article-begin . "^\^A\^A\^A\^A\n") (body-end . "^\^A\^A\^A\^A\n")) + (exim-bounce + (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n") + (body-end-function . nndoc-exim-bounce-body-end-function)) (nsmail (article-begin . "^From - ")) (news @@ -547,6 +550,13 @@ from the document.") (insert "From: " "clari@clari.net (" (or from "unknown") ")" "\nSubject: " (or subject "(no subject)") "\n"))) +(defun nndoc-exim-bounce-type-p () + (and (re-search-forward "^------ This is a copy of the message, including all the headers. ------" nil t) + t)) + +(defun nndoc-exim-bounce-body-end-function () + (goto-char (point-max))) + (defun nndoc-mime-digest-type-p () (let ((case-fold-search t) diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 97e6a1b..96c53bb 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -475,6 +475,8 @@ the group. Then the marks file will be regenerated properly by Gnus.") result art-group) (goto-char (point-min)) (when (looking-at "X-From-Line: ") + (save-match-data + (mail-header-unfold-field)) (replace-match "From ")) (with-temp-buffer (let ((nnmail-file-coding-system nnfolder-active-file-coding-system) @@ -515,15 +517,11 @@ the group. Then the marks file will be regenerated properly by Gnus.") (save-excursion (set-buffer buffer) (goto-char (point-min)) - (let (xfrom) - (while (re-search-forward "^X-From-Line: \\(.*\\)$" nil t) - (setq xfrom (match-string 1)) - (gnus-delete-line)) - (goto-char (point-min)) - (if xfrom - (insert "From " xfrom "\n") - (unless (looking-at "From ") - (insert "From nobody " (current-time-string) "\n")))) + (if (not (looking-at "X-From-Line: ")) + (insert "From nobody " (current-time-string) "\n") + (save-match-data + (mail-header-unfold-field)) + (replace-match "From ")) (nnfolder-normalize-buffer) (set-buffer nnfolder-current-buffer) (goto-char (point-min)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index afa0959..d1c5489 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -1334,6 +1334,39 @@ Use unibyte mode for this." (defalias 'mail-header-fold-field 'std11-fold-field) + (defun-maybe std11-unfold-region (b e) + "Unfold lines in region B to E." + (save-restriction + (narrow-to-region b e) + (goto-char (point-min)) + (let ((bol (save-restriction + (widen) + (gnus-point-at-bol))) + (eol (gnus-point-at-eol)) + leading) + (forward-line 1) + (while (not (eobp)) + (looking-at "[ \t]*") + (setq leading (- (match-end 0) (match-beginning 0))) + (if (< (- (gnus-point-at-eol) bol leading) 76) + (progn + (goto-char eol) + (delete-region eol (progn + (skip-chars-forward " \t\n\r") + (1- (point))))) + (setq bol (gnus-point-at-bol))) + (setq eol (gnus-point-at-eol)) + (forward-line 1))))) + + (defun-maybe std11-unfold-field () + "Fold the current line." + (save-excursion + (save-restriction + (std11-narrow-to-field) + (std11-unfold-region (point-min) (point-max))))) + + (defalias 'mail-header-unfold-field 'std11-unfold-field) + (defun-maybe std11-extract-addresses-components (string) "Extract a list of full name and canonical address from STRING. Each element looks like a list of the form (FULL-NAME CANONICAL-ADDRESS). diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el index b610abe..33e1242 100644 --- a/lisp/nnkiboze.el +++ b/lisp/nnkiboze.el @@ -269,8 +269,9 @@ Finds out what articles are to be part of the nnkiboze groups." (not (assoc gname nnkiboze-newsrc)) ; It isn't registered (numberp (car (symbol-value group))) ; It is active (or (> nnkiboze-level 7) - (and (setq glevel (nth 1 (nth 2 (gnus-gethash - gname gnus-newsrc-hashtb)))) + (and (setq glevel + (nth 1 (nth 2 (gnus-gethash + gname gnus-newsrc-hashtb)))) (>= nnkiboze-level glevel))) (not (string-match "^nnkiboze:" gname)) ; Exclude kibozes (push (cons gname (1- (car (symbol-value group)))) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 52c993c..d4df6ad 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1076,7 +1076,8 @@ FUNC will be called with the group name to determine the article number." (nnheader-set-temp-buffer "*Split Trace*") (gnus-add-buffer) (dolist (trace (nreverse nnmail-split-trace)) - (insert trace "\n")) + (prin1 trace (current-buffer)) + (insert "\n")) (goto-char (point-min)) (gnus-configure-windows 'split-trace) (set-buffer restore))) @@ -1223,7 +1224,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." ;; A group name. Do the \& and \N subs into the string. ((stringp split) (when nnmail-split-tracing - (push (format "\"%s\"" split) nnmail-split-trace)) + (push split nnmail-split-trace)) (list (nnmail-expand-newtext split))) ;; Junk the message. @@ -1262,7 +1263,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (while (and (goto-char end-point) (re-search-backward (cdr cached-pair) nil t)) (when nnmail-split-tracing - (push (cdr cached-pair) nnmail-split-trace)) + (push split nnmail-split-trace)) (let ((split-rest (cddr split)) (end (match-end 0)) ;; The searched regexp is \(\(FIELD\).*\)\(VALUE\). So, diff --git a/lisp/smiley-ems.el b/lisp/smiley-ems.el index d05a713..a81ba7b 100644 --- a/lisp/smiley-ems.el +++ b/lisp/smiley-ems.el @@ -96,9 +96,8 @@ regexp to replace with IMAGE. IMAGE is the name of a PBM file in smiley-data-directory))) (setq file nil))) (when type - (let ((image (find-image (list (list :type (intern type) - :file file - :ascent 'center))))) + (let ((image (gnus-create-image file (intern type) nil + :ascent 'center))) (when image (push (list (car elt) (cadr elt) image) smiley-cached-regexp-alist))))))) @@ -114,33 +113,25 @@ regexp to replace with IMAGE. IMAGE is the name of a PBM file in "Replace in the region `smiley-regexp-alist' matches with corresponding images. A list of images is returned." (interactive "r") - (when (and (fboundp 'display-graphic-p) - (display-graphic-p)) - (mapcar (lambda (o) - (if (eq 'smiley (overlay-get o 'smiley)) - (delete-overlay o))) - (overlays-in start end)) + (when (gnus-graphic-display-p) (unless smiley-cached-regexp-alist (smiley-update-cache)) (save-excursion (let ((beg (or start (point-min))) - group overlay image images) + group image images string) (dolist (entry smiley-cached-regexp-alist) (setq group (nth 1 entry) image (nth 2 entry)) (goto-char beg) (while (re-search-forward (car entry) end t) + (setq string (match-string group)) + (goto-char (match-end group)) + (delete-region (match-beginning group) (match-end group)) (when image (push image images) (gnus-add-wash-type 'smiley) (gnus-add-image 'smiley image) - (add-text-properties - (match-beginning group) (match-end group) - `(display ,image - mouse-face highlight - smiley t - help-echo "mouse-2: toggle smilies in buffer" - keymap smiley-mouse-map))))) + (gnus-put-image image string)))) images)))) (defun smiley-toggle-buffer (&optional arg) diff --git a/texi/ChangeLog b/texi/ChangeLog index eb55f64..5ffee4e 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,13 @@ +2002-01-20 Lars Magne Ingebrigtsen + + * gnus.texi (Document Groups): Added info on more doc types. + (More Threading): Move documentation here. + +2002-01-20 Simon Josefsson + + * message.texi (Mailing Lists): Fix. From Love + . + 2002-01-20 Patric Mueller * gnus.texi (Group Timestamp): Typo fix. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 246ccb5..3831236 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -6307,6 +6307,21 @@ gnus $B$OA4$F$N5-;v$N40A4$J(B @code{References} $BMs$r8+$F!"F1$8%9%l%C%I$KB0$ $B$3$l$,(B @code{nil} $B$G$J$$$H!"$9$Y$F$N%9%l%C%I$O35N,%P%C%U%!$,@8@.$5$l$?$H(B $B$-$K1#$l$^$9!#(B +$B$3$l$O=R8l;X<(;R$G$"$k$3$H$b$G$-$^$9(B (@pxref{Predicate Specifiers})$B!#Mx(B +$BMQ$G$-$k=R8l(B +$B$O(B @code{gnus-article-unread-p} $B$H(B @code{gnus-article-unseen-p} $B$G$9!#(B + +$B$3$l$ONc$G$9(B: + +@lisp +(setq gnus-thread-hide-subtree + '(or gnus-article-unread-p + gnus-article-unseen-p)) +@end lisp + +($B$3$l$O$+$J$j$P$+$2$?Nc$G$9!#$J$<$J$i$9$Y$F$N$^$@FI$^$l$?$3$H$,L5$$5-;v(B +$B$OL$FI$G$b$"$k$+$i$J$N$G$9$,!"/$J$$Am9gE*%9%3%"(B (@code{gnus-thread-score-function}) $B$r;}(B @@ -14665,15 +14680,44 @@ rnews $B$N%P%C%AE>Aw7A<0!#(B $BE>Aw$5$l$?5-;v!#(B @item nsmail -Netscape mail box$B!#(B +Netscape $B$N%a!<%k%\%C%/%9!#(B -@item mime-digest @item mime-parts -MIME $BB>ItJ,%a%C%;!<%8(B (multipart) $B$G$9!#(B +MIME $BItJ,%a%C%;!<%8(B (multipart)$B!#(B @item standard-digest $BI8=`(B (RFC 1153) $B$^$H$aAw$j7A<0!#(B +@item mime-digest +MIME $B$N$^$H$aAw$j%a%C%;!<%8!#(B + +@item lanl-gov-announce +$B%m%9%"%i%b%99qN)8&5f=j(B (LANL) Gov Announce $B$+$i$NH/I=%a%C%;!<%8!#(B + +@item rfc822-forward +RFC822 $B$GE>Aw$5$l$?%a%C%;!<%8!#(B + +@item outlook +Outlook $B$N%a!<%k%\%C%/%9!#(B + +@item oe-dbx +Outlook Express $B$N(B dbx $B%a!<%k%\%C%/%9!#(B + +@item exim-bounce +Exim MTA $B$+$iD7$MJV$5$l$?%a%C%;!<%8!#(B + +@item forward +$BHs8x<0$N5,B'$GE>Aw$5$l$?%a%C%;!<%8!#(B + +@item rfc934 +RFC934 $B7A<0$GE>Aw$5$l$?%a%C%;!<%8!#(B + +@item mailman +mailman $B$N$^$H$aAw$j!#(B + +@item clari-briefs +Clarinet $B$N%K%e!<%99`L\$rMWLs$7$?$^$H$aAw$j!#(B + @item slack-digest $BHsI8=`$^$H$aAw$j7A<0(B --- $B$@$$$?$$$O$&$^$/%^%C%A$9$k$,!"$G$b07$$$O2<o$K35N,%P%C%U%!$rCf?4:F@_Dj$r$9$k$3$H$r6X;_$9$k$?$a$K$3$l(B $B$9!#$3$l$OAm$8$F$=$s$J$K8:$i$7$^$;$s!#$3$l$O!"5-;v$r$I$C$A$K$7$mFI$_$?$/(B $B$J$$$H$$$&;v$r7hDj$9$kA0$K!">/$7$NItJ,$7$+8+$kI,MW$,L5$$$H$$$&;v$G$9!#(B -@item gnus-threada-hide-subtree +@item gnus-thread-hide-subtree $B$3$l$,(B @code{nil} $B$G$J$1$l$P!"A4$F$N35N,%P%C%U%!$N%9%l%C%I$O=i$a$K1#$5$l(B $B$^$9!#(B -$B$3$l$O=R8l;X<(;R$G$"$k$3$H$b$G$-$^$9(B (@pxref{Predicate Specifiers})$B!#Mx(B -$BMQ$G$-$k=R8l(B -$B$O(B @code{gnus-article-unread-p} $B$H(B @code{gnus-article-unseen-p} $B$G$9!#(B - -$B$3$l$ONc$G$9(B: - -@lisp -(setq gnus-thread-hide-subtree - '(or gnus-article-unread-p - gnus-article-unseen-p)) -@end lisp - -($B$3$l$O$+$J$j$P$+$2$?Nc$G$9!#$J$<$J$i$9$Y$F$N$^$@FI$^$l$?$3$H$,L5$$5-;v(B -$B$OL$FI$G$b$"$k$+$i$J$N$G$9$,!"pJs$rF~$l$^$;$s(B $B$N$G!";~4V$r@aLs$G$-$k$G$7$g$&!#(B diff --git a/texi/gnus.texi b/texi/gnus.texi index e4de15b..06c1c33 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -6359,6 +6359,22 @@ slower and more awkward. If non-@code{nil}, all threads will be hidden when the summary buffer is generated. +This can also be a predicate specifier (@pxref{Predicate Specifiers}). +Avaliable predicates are @code{gnus-article-unread-p} and +@code{gnus-article-unseen-p}). + +Here's an example: + +@lisp +(setq gnus-thread-hide-subtree + '(or gnus-article-unread-p + gnus-article-unseen-p)) +@end lisp + +(It's a pretty nonsensical example, since all unseen articles are also +unread, but you get my drift.) + + @item gnus-thread-expunge-below @vindex gnus-thread-expunge-below All threads that have a total score (as defined by @@ -15086,6 +15102,36 @@ MIME multipart messages. @item standard-digest The standard (RFC 1153) digest format. +@item mime-digest +A MIME digest of messages. + +@item lanl-gov-announce +Announcement messages from LANL Gov Announce. + +@item rfc822-forward +A message forwarded according to RFC822. + +@item outlook +The Outlook mail box. + +@item oe-dbx +The Outlook Express dbx mail box. + +@item exim-bounce +A bounce message from the Exim MTA. + +@item forward +A message forwarded according to informal rules. + +@item rfc934 +An RFC934-forwarded message. + +@item mailman +A mailman digest. + +@item clari-briefs +A digest of Clarinet brief news items. + @item slack-digest Non-standard digest format---matches most things, but does it badly. @end table @@ -22304,21 +22350,6 @@ want to read them anyway. If this is non-@code{nil}, all threads in the summary buffer will be hidden initially. -This can also be a predicate specifier (@pxref{Predicate Specifiers}). -Avaliable predicates are @code{gnus-article-unread-p} and -@code{gnus-article-unseen-p}. - -Here's an example: - -@lisp -(setq gnus-thread-hide-subtree - '(or gnus-article-unread-p - gnus-article-unseen-p)) -@end lisp - -(It's a pretty nonsensical example, since all unseen articles are also -unread, but you get my drift.) - @item gnus-updated-mode-lines If this is @code{nil}, Gnus will not put information in the buffer mode diff --git a/texi/message-ja.texi b/texi/message-ja.texi index 8f3d67f..fe8f76b 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -313,7 +313,7 @@ Message $B$O%U%)%m!<%"%C%W$,$I$3$K9T$/$+$rIaDL$NJ}K!$r;H$C$F7hDj$7$^$9$,!"(B $B%W5-;v$N08@h$r;XDj$7$?$$$3$H$,$"$j$^$9!#(BMail-Followup-To (MFT) $B$O$^$5$K(B $B$3$l$r2DG=$K$9$k$?$a$K:n$i$l$^$7$?!#$3$l$,Lr$KN)$D>l9g$NNc$rFs$D(B: -@itemize +@itemize @bullet @item $B%a!<%j%s%0%j%9%H$KEj9F$9$k?M$O!"JV;v$rEj9F