From: yamaoka Date: Tue, 18 Mar 2003 00:53:50 +0000 (+0000) Subject: T-gnus 6.15.17 (quimby) r00. X-Git-Tag: t-gnus-6_15_17-00-quimby X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=27824ccae1d8ab356b1e7f226868f22b64765383;p=elisp%2Fgnus.git- T-gnus 6.15.17 (quimby) r00. --- diff --git a/ChangeLog b/ChangeLog index 92a452d..3a07a57 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2003-03-18 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.15.17 (quimby) revision 00. + +2003-03-18 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.15.16 revision 00. + 2003-03-04 Katsumi Yamaoka * lisp/gnus-ofsetup.el: Don't require `read-passwd'; don't set diff --git a/README.T-gnus b/README.T-gnus index 3bdd271..6fc4f7d 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,5 +33,5 @@ NEWS: * T-gnus 6.15 - this is based on Oort Gnus. - The latest T-gnus is T-gnus 6.15.16 (based on Oort Gnus 0.16). It + The latest T-gnus is T-gnus 6.15.17 (based on Oort Gnus 0.17). It requires SEMI 1.14, FLIM 1.14, and APEL 10.0 or later. diff --git a/README.semi b/README.semi index 819acea..04a0896 100644 --- a/README.semi +++ b/README.semi @@ -4,7 +4,7 @@ What is T-gnus? =============== T-gnus is an improvement of Gnus with SEMI's MIME feature. T-gnus -6.15 is based on Oort Gnus v0.16. SEMI may stand for "SEMI is Emacs +6.15 is based on Oort Gnus v0.17. SEMI may stand for "SEMI is Emacs MIME Interface" and is developped to provide an easy interfaces for users to handle MIME message structures. For further information, refer to REASME.en of SEMI. diff --git a/README.semi.ja b/README.semi.ja index d1370b5..bdaa04a 100644 --- a/README.semi.ja +++ b/README.semi.ja @@ -4,7 +4,7 @@ T-gnus とは？ ============= T-gnus は、SEMI を利用して Gnus に MIME 機能を追加するものです。 -T-gnus 6.15 は Oort Gnus v0.16 をベースにしています。SEMI は Emacs で +T-gnus 6.15 は Oort Gnus v0.17 をベースにしています。SEMI は Emacs で MIME を使えるようにするもので、MIME message の構文の構造と利用者の間を つなぐインターフェースを提供します。詳しくは、SEMI の README.en を参照 してください。 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 77be1fc..c7dd531 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2003-03-18 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bump. + +2003-03-18 00:38:22 Lars Magne Ingebrigtsen + + * gnus.el: Oort Gnus v0.16 is released. + +2003-03-18 Lars Magne Ingebrigtsen + + * lpath.el (featurep): Bind mm-w3m-mode-map. + 2003-03-12 Paul Jarc * nnmail.el (nnmail-cache-primary-mail-backend): Not all diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index a491d3a..e400889 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -40,10 +40,10 @@ ;; Product information of this gnus. (product-provide 'gnus-vers (product-define "T-gnus" nil - (list 6 15 16 + (list 6 15 17 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "0.16" +(defconst gnus-original-version-number "0.17" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/lpath.el b/lisp/lpath.el index 2e1e2e7..90bb882 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -50,7 +50,8 @@ enable-multibyte-characters language-info-alist mark-active mouse-selection-click-count mouse-selection-click-count-buffer pgg-parse-crc24 - temporary-file-directory transient-mark-mode))) + temporary-file-directory transient-mark-mode + mm-w3m-mode-map))) (maybe-fbind '(bbdb-complete-name delete-annotation device-connection dfw-device events-to-keys font-lock-set-defaults frame-device @@ -65,7 +66,7 @@ (maybe-bind '(help-echo-owns-message mail-mode-hook url-package-name url-package-version w3-meta-charset-content-type-regexp - w3-meta-content-type-charset-regexp))) + w3-meta-content-type-charset-regexp mm-w3m-mode-map))) ;; T-gnus. (let ((functions diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 53401bc..381f215 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -699,8 +699,7 @@ Pass INFO on to CALLBACK." "Fetcher for directory sources." (mail-source-bind (directory source) (mail-source-run-script - prescript (format-spec-make ?t path) - prescript-delay) + prescript (format-spec-make ?t path) prescript-delay) (let ((found 0) (mail-source-string (format "directory:%s" path))) (dolist (file (directory-files @@ -709,8 +708,7 @@ Pass INFO on to CALLBACK." (funcall predicate file) (mail-source-movemail file mail-source-crash-box)) (incf found (mail-source-callback callback file)))) - (mail-source-run-script - postscript (format-spec-make ?t path)) + (mail-source-run-script postscript (format-spec-make ?t path)) found))) (defun mail-source-fetch-pop (source callback)