From e7c59490903fa420875ddb52900023d23c40c2cb Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Thu, 4 Jun 1998 17:25:14 +0000 Subject: [PATCH] Sync up with Gnus 6.4.0. --- ChangeLog | 17 +++++++++++++++++ lisp/gnus-art.el | 9 ++------- lisp/gnus-ems.el | 8 +++++--- lisp/gnus.el | 4 ++-- lisp/pop3-fma.el | 36 +++++++++++++++++++----------------- 5 files changed, 45 insertions(+), 29 deletions(-) diff --git a/ChangeLog b/ChangeLog index be3720b..a09902c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,20 @@ +1998-06-04 MORIOKA Tomohiko + + * 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 + + * 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 * 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 --- 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 --- 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 --- 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 --- 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 -;; Version: 0.12 +;; Version: 0.11 ;; Keywords: mail , gnus , pop3 ;; ;; SPECIAL THANKS ;; Keiichi Suzuki ;; Katsumi Yamaoka ;; -;; 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 -- 1.7.10.4