Synch up with main trunk.
authorteranisi <teranisi>
Thu, 21 Nov 2002 12:23:09 +0000 (12:23 +0000)
committerteranisi <teranisi>
Thu, 21 Nov 2002 12:23:09 +0000 (12:23 +0000)
12 files changed:
ChangeLog
INSTALL
INSTALL.ja
doc/wl-ja.texi
doc/wl.texi
elmo/ChangeLog
elmo/elmo-imap4.el
elmo/elmo-multi.el
elmo/elmo-nntp.el
elmo/elmo-split.el
wl/ChangeLog
wl/wl-folder.el

index 62e3708..bc02a3a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * INSTALL, INSTALL.ja: Update Recommended combination of MIME
+       module package.
+
 2002-10-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * README, README.ja: Update stable branch.
@@ -22,7 +27,7 @@
 
 2002-06-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
-       * WL-MK (wl-texinfo-format): Move condition for INFODIR into
+       * WL-MK (wl-texinfo-format): Move condition for INFODIR into
        wl-detect-info-directory.
        (wl-detect-info-directory): Check INFODIR after WL-CFG is loaded.
 
diff --git a/INSTALL b/INSTALL
index d370b7f..1e7a8f9 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -34,24 +34,24 @@ Select MIME Module
 
   (a) XEmacs 21.1 or later
 
-       APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
+       APEL 10.4, FLIM 1.14.4, SEMI 1.14.5
 
     Installation as a XEmacs package, If possible.
 
   (b) Emacs 20.4 or later
 
-       APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
+       APEL 10.4, FLIM 1.14.4, SEMI 1.14.5
 
  (c) Emacs 20.1 to 20.3
 
-       APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
+       APEL 10.4, CLIME 1.14.5, SEMI 1.14.5
 
     Use CLIME instead of FLIM.  FLIM does not support Emacs 20.3 or
     earlier.
 
   (d) Emacs 19.34 (Mule 2.3)
 
-       APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
+       APEL 10.4, CLIME 1.14.5, SEMI 1.14.5
 
     Mule based on Emacs 19.34 can also run SEMI.  See the following web
     page to get more information (in Japanese).
@@ -77,7 +77,7 @@ Install MIME Module
   latest versions should work.  For example, the following combinations
   are confirmed to work:
 
-       APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+       APEL 10.4, SLIM 1.14.9, SEMI 1.14.5
        APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
 
   You have to re-install Wanderlust if you upgraded APEL, FLIM, or SEMI.
index 4e5920b..8aa9e4e 100644 (file)
@@ -33,23 +33,23 @@ MIME\e$BMQ%b%8%e!<%k$NA*Br\e(B
 
   (a) XEmacs 21.1 \e$B0J9_\e(B
 
-       APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
+       APEL 10.4, FLIM 1.14.4, SEMI 1.14.5
 
     \e$B2DG=$J$i$P\e(B XEmacs \e$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k$3$H$r$*4+$a$7$^$9!#\e(B
 
   (b) Emacs 20.4 \e$B0J9_\e(B
 
-       APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
+       APEL 10.4, FLIM 1.14.4, SEMI 1.14.5
 
   (c) Emacs 20.1\e$B!A\e(B20.3
 
-       APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
+       APEL 10.4, CLIME 1.14.5, SEMI 1.14.5
 
     FLIM \e$B$,F0$-$^$;$s$N$G!"Be$o$j$K\e(B CLIME \e$B$r%$%s%9%H!<%k$7$F$/$@$5$$!#\e(B
 
   (d) Emacs 19.34 (Mule 2.3)
 
-       APEL 10.4, CLIME 1.14.5, SEMI 1.14.4
+       APEL 10.4, CLIME 1.14.5, SEMI 1.14.5
 
     Emacs 19.34 \e$B%Y!<%9$N\e(B Mule \e$B$G$O\e(B SEMI \e$B$rF0:n$5$;$k$3$H$,2DG=$G$9!#2<5-\e(B
     \e$B$N%Z!<%8$,;29M$K$J$j$^$9!#\e(B
@@ -79,7 +79,7 @@ MIME\e$BMQ%b%8%e!<%k$N%$%s%9%H!<%k\e(B
 
   \e$BNc$($P!"0J2<$NAH9g$;$NF0:n$,3NG'$5$l$F$$$^$9!#\e(B
 
-       APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+       APEL 10.4, SLIM 1.14.9, SEMI 1.14.5
        APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
 
   APEL, FLIM, SEMI \e$B$N%P!<%8%g%s%"%C%W$r9T$C$?>l9g$O!"\e(BWanderlust \e$B$r%$%s%9\e(B
index 91a7298..355d7d6 100644 (file)
@@ -279,7 +279,7 @@ APEL, FLIM, SEMI \e$B$N=g$K%$%s%9%H!<%k$7$F$/$@$5$$!#\e(B
 \e$B?d>)$5$l$k\e(B APEL, FLIM, SEMI \e$B$N%P!<%8%g%s$NAH9g$;$O!"0J2<$NDL$j$G$9!#\e(B
 
 @itemize @minus
-@item APEL 10.4, FLIM 1.14.4, SEMI 1.14.4
+@item APEL 10.4, FLIM 1.14.4, SEMI 1.14.5
 @end itemize
 
 \e$B$=$NB>!"\e(BFLIM, SEMI \e$B$K$O$$$m$$$m$JJQ7A%P!<%8%g%s$,B8:_$7$^$9$,!"\e(B
@@ -288,7 +288,7 @@ APEL, FLIM, SEMI \e$B$N=g$K%$%s%9%H!<%k$7$F$/$@$5$$!#\e(B
 \e$BNc$($P!"0J2<$NAH9g$;$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#\e(B
 
 @itemize @minus
-@item APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+@item APEL 10.4, SLIM 1.14.9, SEMI 1.14.5
 @item APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
 @end itemize
 
@@ -3067,8 +3067,8 @@ prefix argument \e$B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$bL5;k$7$F:FFI$_9~$_$7D>$7$^$9!
 \e$B$?$@$7!"\e(BNNTP \e$B%U%)%k%@$G$+$D<+J,$,Ej9F$7$?%a%C%;!<%8$K8B$j$^$9!#\e(B
 (@code{wl-summary-reedit})
 
-@item M-e
-@kindex M-e (Summary)
+@item M-E
+@kindex M-E (Summary)
 @findex wl-summary-resend-bounced-mail
 \e$B%+!<%=%k9T$N%a%C%;!<%8$,!"<+J,$N$H$3$m$KJV$C$F$-$?%(%i!<%a%C%;!<%8$J$i$P!"\e(B
 \e$B$b$&0l2sAw$k$?$a$N%I%i%U%H$rMQ0U$7$^$9!#\e(B
@@ -5169,7 +5169,7 @@ plug \e$B>uBV$K$h$j\e(B 2\e$B9TL\$N\e(B @samp{(wl-plugged)} \e$B$,JQ2=$7$^$9!#\e(B
 
 @item elmo-enable-disconnected-operation
 @vindex elmo-enable-disconnected-operation
-\e$B=i4|@_Dj$O\e(B @code{nil}\e$B!#\e(BIMAP4 \e$B$K4X$9$k%*%U%i%$%s=hM}$r<B9T$9$k$+$I$&$+!#\e(B
+\e$B=i4|@_Dj$O\e(B @code{t}\e$B!#\e(BIMAP4 \e$B$K4X$9$k%*%U%i%$%s=hM}$r<B9T$9$k$+$I$&$+!#\e(B
 Non-nil \e$B$J$i%*%U%i%$%s=hM}$r<B9T$7$^$9!#\e(B
 
 @item elmo-lost+found-folder
@@ -6566,8 +6566,9 @@ OK \e$B$G$9!#\e(B
 @subsection bbdb.el
 @pindex BBDB
 
-@file{util/bbdb-wl.el} \e$B$r\e(B @code{load-path} \e$B$K$*$$$F0J2<$N$h$&$K@_Dj$9$l$P\e(B
-OK \e$B$G$9!#\e(B
+The Insidious Big Brother Database (@uref{http://bbdb.sourceforge.net/})
+\e$B$r\e(B Wanderlust \e$B$H6&$K;H$&$K$O!"\e(B @file{util/bbdb-wl.el} \e$B$r\e(B @code{load-path}
+\e$B$KCV$$$F0J2<$N$h$&$K@_Dj$9$l$P\e(B OK \e$B$G$9!#\e(B
 
 \e$B%$%s%9%H!<%k;~$K\e(B @code{load-path} \e$B>e$K\e(B BBDB \e$B$,$"$l$P!"\e(B
 @file{bbdb-wl.el} \e$B$O%P%$%H%3%s%Q%$%k\e(B/\e$B%$%s%9%H!<%k$5$l$^$9!#\e(B
@@ -6602,7 +6603,8 @@ OK \e$B$G$9!#\e(B
 @subsection lsdb.el
 @pindex LSDB
 
-\e$B0J2<$O!"@_Dj$N0lNc$G$9!#\e(B
+The Lovely Sister Database (@uref{http://sourceforge.jp/projects/lsdb/})
+\e$B$r\e(B Wanderlust \e$B$H6&$K;H$&$?$a$N@_DjNc$r0J2<$K<($7$^$9!#\e(B
 
 @lisp
 @group
index 70d57dc..7ecc95b 100644 (file)
@@ -255,7 +255,7 @@ may help you.}.
 Recommended combination of APEL, FLIM and SEMI are following:
 
 @itemize @minus
-@item APEL 10.4, FLIM 1.14.4 and SEMI 1.14.4
+@item APEL 10.4, FLIM 1.14.4 and SEMI 1.14.5
 @end itemize
 
 You can also use many other FLIM/SEMI variants. Combination of the
@@ -263,7 +263,7 @@ latest versions should work.  For example, the following combination are
 confirmed to work.
 
 @itemize @minus
-@item APEL 10.4, SLIM 1.14.9, SEMI 1.14.4
+@item APEL 10.4, SLIM 1.14.9, SEMI 1.14.5
 @item APEL 10.4, CLIME 1.14.5, EMIKO 1.14.1
 @end itemize
 
@@ -3078,8 +3078,8 @@ If the message at current cursor point is your own netnews article,
 a draft for `supersedes message' for the message is prepared.
 (@code{wl-summary-reedit})
 
-@item M-e
-@kindex M-e (Summary)
+@item M-E
+@kindex M-E (Summary)
 @findex wl-summary-resend-bounced-mail
 If the message at current cursor point is a bounced message,
 a draft for re-sending original message is prepared.
@@ -5227,7 +5227,7 @@ manually, press @kbd{F} in the folder mode.
 
 @item elmo-enable-disconnected-operation
 @vindex elmo-enable-disconnected-operation
-The initial setting is @code{nil}.  Controls off-line operations
+The initial setting is @code{t}.  Controls off-line operations
 regarding IMAP4.  If non-nil, off-line operations are carried out.
 
 @item elmo-lost+found-folder
@@ -6665,8 +6665,9 @@ If @command{imput} is on the @code{exec-path} at the installation,
 @subsection bbdb.el
 @pindex BBDB
 
-Place @file{util/bbdb-wl.el} on the @code{load-path} and do the following
-settings.
+To use The Insidious Big Brother Database (@uref{http://bbdb.sourceforge.net/})
+with Wanderlust, place @file{util/bbdb-wl.el} on the @code{load-path}
+and do the following settings.
 
 If BBDB is on the @code{load-path} at the installation, @file{bbdb-wl.el} is
 byte-compiled and installed.
@@ -6701,7 +6702,9 @@ in draft buffer.
 @subsection lsdb.el
 @pindex LSDB
 
-The following is an example of settings:
+The following is an example setting to use
+The Lovely Sister Database (@uref{http://sourceforge.jp/projects/lsdb/})
+with Wanderlust.
 
 @lisp
 @group
index a4fc939..4811601 100644 (file)
@@ -1,9 +1,33 @@
+2002-11-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-nntp.el (elmo-nntp-search-primitive): Revert the last change.
+
+       * elmo-multi.el (elmo-folder-search): Ignore errors while search.
+
+       * elmo-imap4.el (elmo-imap4-response-garbage-p): New macro.
+       (elmo-imap4-read-response): Take care of garbage response.
+
+2002-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-nntp.el (elmo-nntp-search-primitive): Fix the last change,
+       just return nil instead of error.
+
+2002-11-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-nntp.el (elmo-nntp-search-primitive): Cause error when the
+       search-key is "body".
+
 2002-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-imap4.el (elmo-folder-list-subfolders): Check the return value
        of elmo-string-matched-assoc to use match-data.
        (Thanks to Mito <mito@mxa.nes.nec.co.jp>)
 
+2002-11-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-split.el (elmo-split->): New function.
+       (elmo-split-<): Ditto.
+
 2002-11-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added
index 81553d8..15df756 100644 (file)
@@ -227,6 +227,10 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
   "Returns non-nil if RESPONSE is an 'BYE' response."
   (` (assq 'bye (, response))))
 
+(defmacro elmo-imap4-response-garbage-p (response)
+  "Returns non-nil if RESPONSE is an 'garbage' response."
+  (` (assq 'garbage (, response))))
+
 (defmacro elmo-imap4-response-value (response symbol)
   "Get value of the SYMBOL from RESPONSE."
   (` (nth 1 (assq (, symbol) (, response)))))
@@ -241,7 +245,7 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
     matched))
 
 (defmacro elmo-imap4-response-error-text (response)
-  "Returns text of NO, BAD, BYE response."
+  "Returns text of NO, BAD, BYE, response."
   (` (nth 1 (or (elmo-imap4-response-value (, response) 'no)
                (elmo-imap4-response-value (, response) 'bad)
                (elmo-imap4-response-value (, response) 'bye)))))
@@ -347,7 +351,14 @@ TAG is the tag of the command"
   (with-current-buffer (process-buffer
                        (elmo-network-session-process-internal session))
     (while (not (or (string= tag elmo-imap4-reached-tag)
-                   (elmo-imap4-response-bye-p elmo-imap4-current-response)))
+                   (elmo-imap4-response-bye-p elmo-imap4-current-response)
+                   (when (elmo-imap4-response-garbage-p
+                          elmo-imap4-current-response)
+                     (message "Garbage response: %s" 
+                              (elmo-imap4-response-value
+                               elmo-imap4-current-response
+                               'garbage))
+                     t)))
       (when (memq (process-status
                   (elmo-network-session-process-internal session))
                  '(open run))
index 5be1400..8199b2e 100644 (file)
                          (+
                           (* (elmo-multi-folder-divide-number-internal
                               folder) cur-number) x)))
-                      (elmo-folder-search
-                       (car flds) condition)))))
+                      (ignore-errors
+                        (elmo-folder-search
+                         (car flds) condition))))))
       (when numlist
        (setq numlist-list (cdr numlist-list)))
       (setq flds (cdr flds)))
index 9990cae..d705d60 100644 (file)
@@ -302,10 +302,10 @@ Don't cache if nil.")
   (run-hooks 'elmo-nntp-opened-hook))
 
 (defun elmo-nntp-process-filter (process output)
-  (save-excursion
-    (set-buffer (process-buffer process))
-    (goto-char (point-max))
-    (insert output)))
+  (when (buffer-live-p (process-buffer process))
+    (with-current-buffer (process-buffer process)
+      (goto-char (point-max))
+      (insert output))))
 
 (defun elmo-nntp-send-mode-reader (session)
   (elmo-nntp-send-command session "mode reader")
@@ -1142,6 +1142,9 @@ Returns a list of cons cells like (NUMBER . VALUE)"
        (if from-msgs
            (elmo-list-filter from-msgs result)
          result)))
+     ((string= "body" search-key)
+      (error
+"Search by BODY is not supported (Toggle the plug off to search from caches)"))
      (t
       (let ((val (elmo-filter-value condition))
            (negative (eq (elmo-filter-type condition) 'unmatch))
index 6dcd25d..d86e2c0 100644 (file)
@@ -152,6 +152,12 @@ Example:
        (throw 'done nil)))
     t))
 
+(defun elmo-split-> (buffer size)
+  (> (buffer-size buffer) size))
+
+(defun elmo-split-< (buffer size)
+  (< (buffer-size buffer) size))
+
 (defun elmo-split-address-equal (buffer field value)
   (with-current-buffer buffer
     (let ((addrs (mapcar
index b16246b..61108ef 100644 (file)
@@ -1,3 +1,19 @@
+2002-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-folder.el (wl-folder-get-prev-folder): Ignore nemacs.
+       (wl-folder-get-next-folder): Ditto.
+       (wl-folder-get-path): Ditto.
+
+2002-11-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-mime.el (wl-message-verify-pgp-nonmime): With arg, ask coding
+       system and encode the region with it before verifying.
+
+2002-11-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-mime.el (wl-message-verify-pgp-nonmime): Encode by the coding
+       system of the echo buffer before decoding.
+
 2002-11-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-mime.el (wl-message-verify-pgp-nonmime): Verify sign in the
index c0628af..e35d178 100644 (file)
@@ -428,8 +428,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'."
          (setq entities (nth 2 entity)))
         ((stringp entity)
          (if (and (string= name entity)
-                  ;; don't use eq, `id' is string on Nemacs.
-                  (equal id (wl-folder-get-entity-id entity)))
+                  (eq id (wl-folder-get-entity-id entity)))
              (throw 'done last-entity))
          (if (or (not unread)
                  (and (setq finfo (wl-folder-get-entity-info entity))
@@ -464,8 +463,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'."
                             (> (+ (nth 0 finfo)(nth 1 finfo)) 0)))
                (throw 'done entity))
            (if (and (string= name entity)
-                    ;; don't use eq, `id' is string on Nemacs.
-                    (equal id (wl-folder-get-entity-id entity)))
+                    (eq id (wl-folder-get-entity-id entity)))
                (setq found t)))))
        (unless entities
          (setq entities (wl-pop entity-stack)))))))
@@ -1934,8 +1932,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
         (cond
          ((consp entity)
           (if (and (or (not string) (string= string (car entity)))
-                   ;; don't use eq, `id' is string on Nemacs.
-                   (equal target-id (wl-folder-get-entity-id (car entity))))
+                   (eq target-id (wl-folder-get-entity-id (car entity))))
               (throw 'done
                      (wl-push target-id result-path))
             (wl-push (wl-folder-get-entity-id (car entity)) result-path))
@@ -1943,8 +1940,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
           (setq entities (nth 2 entity)))
          ((stringp entity)
           (if (and (or (not string) (string= string entity))
-                   ;; don't use eq, `id' is string on Nemacs.
-                   (equal target-id (wl-folder-get-entity-id entity)))
+                   (eq target-id (wl-folder-get-entity-id entity)))
               (throw 'done
                      (wl-push target-id result-path)))))
         (unless entities