Sync up with Semi-gnus 6.7.7.

diff --git a/ChangeLog b/ChangeLog
index 242a312..e3badbe 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,48 @@
-1998-06-28  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
+1998-07-02  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
 
-       Sync up with Semi-gnus 6.7.4.
+       * Sync up with Semi-gnus 6.7.7.
+
+1998-06-29  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
+
+       * lisp/gnus.el (gnus-version-number): Update to 6.7.6.
+
+1998-06-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * lisp/gnus-art.el (gnus-mime-preview-quitting-method): Renamed
+       from `mime-preview-quitting-method-for-gnus'.
+
+1998-06-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
+
+       * 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  <morioka@jaist.ac.jp>
 
@@ -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  <morioka@jaist.ac.jp>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ff0c5bd..150562e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,7 +1,6 @@
 Sat Jun 27 04:37:14 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
        * gnus.texi (Mail-To-News Gateways): Addition.
-       (Mail-To-News Gateways): Typo.
 
 Fri Jun 26 13:33:00 1998  Yoshiki Hayashi  <g740685@komaba.ecc.u-tokyo.ac.jp>
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index a303db6..7321a49 100644 (file)
--- 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 <tibbs@@hpc.uh.edu>
 @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 (file)
--- 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.