T-gnus 6.15.17 (quimby) r00.

diff --git a/ChangeLog b/ChangeLog
index 92a452d..3a07a57 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2003-03-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-vers.el: T-gnus 6.15.17 (quimby) revision 00.
+
+2003-03-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-vers.el: T-gnus 6.15.16 revision 00.
+
 2003-03-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 (file)
--- 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 (file)
--- 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 (file)
--- a/README.semi.ja
+++ b/README.semi.ja
@@ -4,7 +4,7 @@ T-gnus \e$B$H$O!)\e(B
 =============
 
   T-gnus \e$B$O!"\e(BSEMI \e$B$rMxMQ$7$F\e(B Gnus \e$B$K\e(B MIME \e$B5!G=$rDI2C$9$k$b$N$G$9!#\e(B
-T-gnus 6.15 \e$B$O\e(B Oort Gnus v0.16 \e$B$r%Y!<%9$K$7$F$$$^$9!#\e(BSEMI \e$B$O\e(B Emacs \e$B$G\e(B
+T-gnus 6.15 \e$B$O\e(B Oort Gnus v0.17 \e$B$r%Y!<%9$K$7$F$$$^$9!#\e(BSEMI \e$B$O\e(B Emacs \e$B$G\e(B
 MIME \e$B$r;H$($k$h$&$K$9$k$b$N$G!"\e(BMIME message \e$B$N9=J8$N9=B$$HMxMQ<T$N4V$r\e(B
 \e$B$D$J$0%$%s%?!<%U%'!<%9$rDs6!$7$^$9!#>\$7$/$O!"\e(BSEMI \e$B$N\e(B README.en \e$B$r;2>H\e(B
 \e$B$7$F$/$@$5$$!#\e(B

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77be1fc..c7dd531 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2003-03-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.el (gnus-version-number): Bump.
+
+2003-03-18 00:38:22 Lars Magne Ingebrigtsen <lars@ingebrigtsen.no>
+
+       * gnus.el: Oort Gnus v0.16 is released.
+
+2003-03-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * lpath.el (featurep): Bind mm-w3m-mode-map.
+
 2003-03-12  Paul Jarc  <prj@po.cwru.edu>
 
        * 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)