From: ichikawa Date: Mon, 29 Jun 1998 04:39:34 +0000 (+0000) Subject: Sync up with gnus-5.6.21 and change Semi-gnus version number X-Git-Tag: ichikawa-199811302358~51 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=03dac0b6ffcf87b7175b6fa4bfd959a235695457;p=elisp%2Fgnus.git- Sync up with gnus-5.6.21 and change Semi-gnus version number --- diff --git a/ChangeLog b/ChangeLog index 1e2543a..fc4c146 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,12 +1,40 @@ -1998-06-28 Tatsuya Ichikawa +1998-06-29 Tatsuya Ichikawa * lisp/gnus.el (gnus-version-number): Update to 6.7.6. - * Sync up with Gnus 5.6.21. - -1998-06-27 Tatsuya Ichikawa + * Sync up with Gnus 5.6.21 + +1998-06-27 MORIOKA Tomohiko + + * lisp/gnus.el (gnus-version-number): Update to 6.7.6. + +1998-06-27 MORIOKA Tomohiko + + * lisp/gnus-art.el (gnus-mime-preview-quitting-method): Renamed + from `mime-preview-quitting-method-for-gnus'. + +1998-06-27 MORIOKA Tomohiko + + * lisp/gnus-sum.el (gnus-summary-preview-mime-message): New + implementation. + + * lisp/gnus-art.el (mime-preview-quitting-method-for-gnus): Use + `gnus-article-show-summary' is `gnus-show-mime' is not nil. + +1998-06-27 MORIOKA Tomohiko + + * texi/ChangeLog, texi/gnus.texi, texi/message.texi, + lisp/ChangeLog, lisp/gnus.el, lisp/nngateway.el, lisp/nnfolder.el, + lisp/message.el, lisp/gnus-sum.el, lisp/gnus-soup.el: Sync up with + Gnus 5.6.20. + +1998-06-26 MORIOKA Tomohiko - * lisp/gnus.el (gnus-version-number): Update to 6.7.5. - * Sync up with Gnus 5.6.20. + * readme, README, texi/ChangeLog, texi/gnus.texi, + texi/message.texi, lisp/ChangeLog, lisp/nnweb.el, lisp/nnmail.el, + lisp/nndoc.el, lisp/message.el, lisp/lpath.el, lisp/gnus.el, + lisp/gnus-util.el, lisp/gnus-topic.el, lisp/gnus-sum.el, + lisp/gnus-score.el, lisp/gnus-group.el, lisp/gnus-ems.el, + lisp/gnus-demon.el, lisp/gnus-art.el: Sync up with Gnus 5.6.16. 1998-06-26 MORIOKA Tomohiko @@ -30,14 +58,14 @@ lisp/nngateway.el, lisp/nnfolder.el, lisp/nnagent.el, lisp/message.el, lisp/gnus-sum.el, lisp/gnus-score.el, lisp/gnus-salt.el, lisp/gnus-msg.el, lisp/gnus-cus.el, - lisp/gnus-cache.el, lisp/gnus-art.el: Sync up with gnus-5_6_15. + lisp/gnus-cache.el, lisp/gnus-art.el: Sync up with Gnus 5.6.15. 1998-06-24 MORIOKA Tomohiko * texi/gnus.texi, texi/message.texi, texi/ChangeLog: Sync up with Gnus 5.6.13. -1998-06-24 Tatsuya Ichikawa +1998-06-14 Tatsuya Ichikawa * Sync up with Gnus 5.6.13. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 7b64fdf..830e8bf 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -3233,22 +3233,20 @@ forbidden in URL encoding." 'gnus-original-article-mode #'gnus-article-header-presentation-method) -(defun mime-preview-quitting-method-for-gnus () - (if (not gnus-show-mime) - (mime-preview-kill-buffer)) - (delete-other-windows) - (gnus-article-show-summary) - (if (or (not gnus-show-mime) - (null gnus-have-all-headers)) - (gnus-summary-select-article nil t) +(defun gnus-mime-preview-quitting-method () + (if gnus-show-mime + (gnus-article-show-summary) + (mime-preview-kill-buffer) + (delete-other-windows) + (gnus-article-show-summary) + (gnus-summary-select-article nil t) )) (set-alist 'mime-raw-representation-type-alist 'gnus-original-article-mode 'binary) (set-alist 'mime-preview-quitting-method-alist - 'gnus-original-article-mode - #'mime-preview-quitting-method-for-gnus) + 'gnus-original-article-mode #'gnus-mime-preview-quitting-method) (defun gnus-following-method (buf) (set-buffer buf) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 4c42404..1e2ab96 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -5167,17 +5167,12 @@ The state which existed when entering the ephemeral is reset." (defun gnus-summary-preview-mime-message (arg) "MIME decode and play this message." (interactive "P") - (let ((gnus-break-pages nil)) - (gnus-summary-select-article t t) - ) - (pop-to-buffer gnus-original-article-buffer t) - (let (buffer-read-only) - (if (text-property-any (point-min) (point-max) 'invisible t) - (remove-text-properties (point-min) (point-max) - gnus-hidden-properties) - )) - (mime-view-mode nil nil nil gnus-original-article-buffer - gnus-article-buffer) + (or gnus-show-mime + (let ((gnus-break-pages nil) + (gnus-show-mime t)) + (gnus-summary-select-article t t) + )) + (select-window (get-buffer-window gnus-article-buffer)) ) (defun gnus-summary-scroll-down () diff --git a/lisp/gnus.el b/lisp/gnus.el index 69a78e6..f87290f 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,7 +250,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.7.6" +(defconst gnus-version-number "6.7.7" "Version number for this version of gnus.") (defconst gnus-version diff --git a/texi/gnus.texi b/texi/gnus.texi index 201a993..c64f97e 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.7.6 Manual +@settitle Semi-gnus 6.7.7 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.7.6 Manual +@title Semi-gnus 6.7.7 Manual @author by Lars Magne Ingebrigtsen @page @@ -359,7 +359,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.7.6. +This manual corresponds to Semi-gnus 6.7.7. @end ifinfo @@ -3819,7 +3819,7 @@ This command is mainly used if you have several accounts and want to ship a mail to a different account of yours. (If you're both @code{root} and @code{postmaster} and get a mail for @code{postmaster} to the @code{root} account, you may want to resend it to -@code{postmaster}. Ordnung mu(I_(B sein! +@code{postmaster}. Ordnung muß sein! This command understands the process/prefix convention (@pxref{Process/Prefix}). @@ -10962,7 +10962,7 @@ group as read. If the search engine changes its output substantially, @code{nnweb} won't be able to parse it and will fail. One could hardly fault the Web -providers if they were to do this---their @emph{raison d'$BsU(Bre} is to +providers if they were to do this---their @emph{raison d'être} is to make money off of advertisements, not to provide services to the community. Since @code{nnweb} washes the ads off all the articles, one might think that the providers might be somewhat miffed. We'll see. @@ -13359,7 +13359,7 @@ then this operator will return @code{false}. @item ! @itemx not -@itemx (I,(B +@itemx ¬ This logical operator only takes a single argument. It returns the logical negation of the value of its argument. @@ -15642,7 +15642,7 @@ David Moore---rewrite of @file{nnvirtual.el} and many other things. Kevin Davidson---came up with the name @dfn{ding}, so blame him. @item -Fran$BmP(Bis Pinard---many, many interesting and thorough bug reports, as +François Pinard---many, many interesting and thorough bug reports, as well as autoconf support. @end itemize @@ -15655,7 +15655,7 @@ The following people have contributed many patches and suggestions: Christopher Davis, Andrew Eskilsson, Kai Grossjohann, -David K$BiH(Bedal, +David Kågedal, Richard Pieri, Fabrice Popineau, Daniel Quinlan, @@ -15725,7 +15725,7 @@ Marc Horowitz, Gunnar Horrigmo, Richard Hoskins, Brad Howes, -Fran$BmP(Bis Felix Ingrand, +François Felix Ingrand, Ishikawa Ichiro, @c Ishikawa Lee Iverson, Iwamuro Motonori, @c Iwamuro @@ -17145,8 +17145,8 @@ From: Jason L Tibbitts III @end example @item - tanken var at n$BiS(B du bruker `gnus-startup-file' som prefix (FOO) til ’élete -opp en fil FOO-SERVER, FOO-SERVER.el, FOO-SERVER.eld, kan du la den v$BkS(Be en + tanken var at når du bruker `gnus-startup-file' som prefix (FOO) til å lete +opp en fil FOO-SERVER, FOO-SERVER.el, FOO-SERVER.eld, kan du la den være en liste hvor du bruker hvert element i listen som FOO, istedet. da kunne man hatt forskjellige serveres startup-filer forskjellige steder. @@ -17219,8 +17219,8 @@ there was a sci.somethingelse group or section, then it should prompt for sci? first the sci.something? then sci.somethingelse?... @item -Ja, det burde v$BkS(Be en m$BiU(Be ’ési slikt. Kanskje en ny variabel? -`gnus-use-few-score-files'? S’ékunne score-regler legges til den +Ja, det burde være en måte å si slikt. Kanskje en ny variabel? +`gnus-use-few-score-files'? Så kunne score-regler legges til den "mest" lokale score-fila. F. eks. ville no-gruppene betjenes av "no.all.SCORE", osv. @@ -17553,7 +17553,7 @@ the current process mark set onto the stack. @item gnus-article-hide-pgp -Selv ville jeg nok ha valgt ’éslette den dersom teksten matcher +Selv ville jeg nok ha valgt å slette den dersom teksten matcher @example "\\(This\s+\\)?[^ ]+ has been automatically signed by" @end example