Sync up with Gnus 6.4.0.

diff --git a/ChangeLog b/ChangeLog
index be3720b..a09902c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,20 @@
+1998-06-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * lisp/gnus-ems.el (gnus-ems-redefine): Must require 'path-util
+       before call `module-installed-p'.
+
+       * lisp/gnus.el (gnus-version-number): Update to 6.4.0.
+       (gnus-version): Modify for SEMI 1.5.
+
+       * lisp/gnus-art.el: Modify for SEMI 1.5 API.
+
+1998-06-04  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/pop3-fma.el: New file. To handle multiple POP account.
+
+       * lisp/gnus.el (gnus-version-number): Update to 6.3.4.
+       And fix typo 5.6.10 -> 5.6.11.
+       
 1998-06-03  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
 
        * lisp/gnus.el (gnus-version-number): Update to 6.3.3.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fdfde4f..f92493c 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3254,17 +3254,12 @@ It is registered to variable `mime-view-content-header-filter-alist'."
       (gnus-summary-select-article nil t)
     ))
 
-(set-alist 'mime-raw-buffer-coding-system-alist
-          'gnus-original-article-mode
-          'raw-text)
-
 (set-alist 'mime-view-content-header-filter-alist
           'gnus-original-article-mode
           #'gnus-content-header-filter)
 
-(set-alist 'mime-text-decoder-alist
-          'gnus-original-article-mode
-          #'mime-text-decode-buffer)
+(set-alist 'mime-raw-representation-type-alist
+          'gnus-original-article-mode 'binary)
 
 (set-alist 'mime-preview-quitting-method-alist
           'gnus-original-article-mode

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 2c002f2..24b240a 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -234,9 +234,11 @@
     (fset 'gnus-encode-coding-string 'encode-coding-string)
     (fset 'gnus-decode-coding-string 'decode-coding-string)
 
-    (and window-system
-        (module-installed-p 'bitmap)
-        (fset 'gnus-group-startup-message 'gnus-mule-group-startup-message))
+    (when window-system
+      (require 'path-util)
+      (if (module-installed-p 'bitmap)
+         (fset 'gnus-group-startup-message 'gnus-mule-group-startup-message)
+       ))
 
     (when (boundp 'gnus-check-before-posting)
       (setq gnus-check-before-posting

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ae5931c..de7308d 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.3.3"
+(defconst gnus-version-number "6.4.0"
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "Semi-gnus %s (based on Gnus 5.6.10; for SEMI 1.4)"
+  (format "Semi-gnus %s (based on Gnus 5.6.11; for SEMI 1.5)"
           gnus-version-number)
   "Version string for this version of gnus.")
 

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 5569687..2a7b20b 100644 (file)
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -1,14 +1,14 @@
 ;; pop3-fma.el.el --- POP3 for Multiple Account for Gnus.
 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. , Tatsuya Ichikawa
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
-;; Version: 0.12
+;; Version: 0.11
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
 ;;    Keiichi Suzuki <kei-suzu@mail.wbs.or.jp>
 ;;    Katsumi Yamaoka <yamaoka@jpl.org>
 ;;
-;; This file is not part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -73,21 +73,21 @@
   :group 'mail
   :group 'news)
 
-(defconst pop3-fma-version-number "0.12")
+(defconst pop3-fma-version-number "0.11")
 (defconst pop3-fma-codename
-;;;  "Feel the wind"           ; 0.10
-;;  "My home town"             ; 0.11
-  "On the road"                        ; 0.12
-;;  "Before generation of Love"        ; 0.xx
-;;  "Lonely Christmas eve"     ; 0.xx
-;;  "Rock'n Roll city"         ; 0.xx
-;;  "Money"                    ; 0.xx
-;;  "Midnight blue train"      ; 0.xx
-;;  "Still 19"                 ; 0.xx
-;;  "J boy"                    ; 0.xx
-;;  "Blood line"               ; 0.xx
-;;  "Star ring"                        ; 0.xx
-;;  "Goodbye Game"             ; 0.xx
+;  "Feel the wind"             ; 0.10
+  "My home town"               ; 0.11
+;  "On the road"               ; 0.xx
+;  "Before generation of Love" ; 0.xx
+;  "Lonely Christmas eve"      ; 0.xx
+;  "Rock'n Roll city"          ; 0.xx
+;  "Money"                     ; 0.xx
+;  "Midnight blue train"       ; 0.xx
+;  "Still 19"                  ; 0.xx
+;  "J boy"                     ; 0.xx
+;  "Blood line"                        ; 0.xx
+;  "Star ring"                 ; 0.xx
+;  "Goodbye Game"              ; 0.xx
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
                                       pop3-fma-version-number
@@ -128,7 +128,6 @@ Please do not set this valiable non-nil if you do not use Meadow.")
 ;; Temporary variable
 (defvar hdr nil)
 (defvar passwd nil)
-(defvar str nil)
 (defvar pop3-fma-movemail-options pop3-fma-movemail-arguments)
 
 (defun pop3-fma-init-hooks ()
@@ -276,3 +275,6 @@ Argument PROMPT ."
 (provide 'pop3-fma)
 ;;
 ;; pop3-fma.el ends here.
+
+(provide 'pop3-fma)
+;;; pop3-fma.el ends here