From: shuhei-k Date: Wed, 1 Jul 1998 22:29:24 +0000 (+0000) Subject: Sync up with Semi-gnus 6.7.7. X-Git-Tag: semi-mule-199811302358~48 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=69956b595a05284e3014d3edf8a888fd39dc86e2;p=elisp%2Fgnus.git- Sync up with Semi-gnus 6.7.7. --- diff --git a/ChangeLog b/ChangeLog index 242a312..e3badbe 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,48 @@ -1998-06-28 Shuhei KOBAYASHI +1998-07-02 Shuhei KOBAYASHI - Sync up with Semi-gnus 6.7.4. + * Sync up with Semi-gnus 6.7.7. + +1998-06-29 MORIOKA Tomohiko + + * lisp/gnus.el (gnus-version-number): Update to 6.7.7. + + * lisp/gnus-art.el (gnus-article-prepare): Set up + `gnus-article-current-summary' of gnus-article-buffer. + (gnus-request-article-this-buffer): Don't set up + `gnus-article-current-summary'. + +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 + + * 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 @@ -31,7 +73,7 @@ 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 diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index ff0c5bd..150562e 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2100,6 +2100,8 @@ If ALL-HEADERS is non-nil, no headers are hidden." (gnus-run-hooks 'gnus-article-prepare-hook) ;; Display message. (funcall method) + ;; Associate this article with the current summary buffer. + (setq gnus-article-current-summary summary-buffer) ;; Perform the article display hooks. (gnus-run-hooks 'gnus-article-display-hook)) ;; Do page break. @@ -2496,9 +2498,6 @@ If given a prefix, show the hidden text instead." ;; It was a pseudo. (t article))) - ;; Associate this article with the current summary buffer. - (setq gnus-article-current-summary gnus-summary-buffer) - ;; Update sparse articles. (when (and do-update-line (or (numberp article) @@ -3233,22 +3232,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 3814d83..8c48ea8 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -5192,17 +5192,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 f3e34da..b77d839 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,11 +250,11 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.7.4" +(defconst gnus-version-number "6.7.7" "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Gnus 5.6.21; for SEMI 1.8)" + (format "Semi-gnus %s (based on Gnus 5.6.20; for SEMI 1.8)" gnus-version-number) "Version string for this version of gnus.") diff --git a/texi/ChangeLog b/texi/ChangeLog index ae2a27f..30092c9 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,7 +1,6 @@ Sat Jun 27 04:37:14 1998 Lars Magne Ingebrigtsen * gnus.texi (Mail-To-News Gateways): Addition. - (Mail-To-News Gateways): Typo. Fri Jun 26 13:33:00 1998 Yoshiki Hayashi diff --git a/texi/gnus.texi b/texi/gnus.texi index a303db6..7321a49 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.7.4 Manual +@settitle Semi-gnus 6.7.5 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.4 Manual +@title Semi-gnus 6.7.5 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.4. +This manual corresponds to Semi-gnus 6.7.5. @end ifinfo @@ -11078,7 +11078,7 @@ Here's an example: @lisp (setq gnus-post-method - '(nngateway "mail2news@@replay.com" + '(nngateway "mail2news@replay.com" (nngateway-header-transformation nngateway-mail2news-header-transformation))) @end lisp @@ -15842,7 +15842,7 @@ actually are people who are using Gnus. Who'd'a thunk it! * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. -* Quassia Gnus:: Two times two is four, or Gnus 5.6.21. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.20. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16377,7 +16377,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.21: +New features in Gnus 5.6.20: @itemize @bullet @@ -17145,7 +17145,7 @@ From: Jason L Tibbitts III @end example @item - tanken var at når du bruker `gnus-startup-file' som prefix (FOO) til å lete + 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ære en måte å 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 diff --git a/texi/message.texi b/texi/message.texi index 8abddd6..1c808dd 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.21 Manual +@settitle Message 5.6.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 5.6.21 Manual +@title Message 5.6.20 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 5.6.21. Message is distributed with +This manual corresponds to Message 5.6.20. Message is distributed with the Gnus distribution bearing the same version number as this manual has.