Synchronize with CVS version
authorvitaly <v.mayatskih@gmail.com>
Wed, 25 Mar 2009 08:19:01 +0000 (25 09:19 +0100)
committervitaly <v.mayatskih@gmail.com>
Wed, 25 Mar 2009 08:19:01 +0000 (25 09:19 +0100)
ChangeLog
doc/wl-ja.texi
doc/wl.texi
elmo/ChangeLog
elmo/elsp-bsfilter.el
wl/ChangeLog
wl/wl-summary.el

index 69b0cd2..1e9d30b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-25  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * INSTALL: Updated recommended version of FLIM.
+       * INSTALL.ja: Ditto.
+
 2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * Makefile (clean-elc): Remove *.elx for compile-strict.
index fe5262d..6f728fa 100644 (file)
@@ -7383,7 +7383,7 @@ bsfilter \e$B$r5/F0$9$k%7%'%k$KM?$($k0z?t$r;XDj$7$^$9!#\e(B
 
 @item elmo-spam-bsfilter-update-switch
 @vindex elmo-spam-bsfilter-update-switch
-\e$B=i4|@_Dj$O!"\e(B@code{"--synchronous-auto-update"}\e$B!#\e(B
+\e$B=i4|@_Dj$O!"\e(B@code{"--auto-update"}\e$B!#\e(B
 \e$B%a%C%;!<%8$r3X=,$9$k:]$K\e(B @command{bsfilter} \e$B$KM?$($k0z?t$r;XDj$7$^$9!#\e(B
 
 @end table
index 1438e2d..e09414c 100644 (file)
@@ -7440,7 +7440,7 @@ Specify options to give to the shell executing @command{bsfilter}.
 
 @item elmo-spam-bsfilter-update-switch
 @vindex elmo-spam-bsfilter-update-switch
-The initial setting is @code{"--synchronous-auto-update"}.
+The initial setting is @code{"--auto-update"}.
 Specify options to give to @command{bsfilter} for learning messages.
 
 @end table
index ed61bf3..40aa92d 100644 (file)
@@ -1,3 +1,8 @@
+2009-03-22  Tetsurou Okazaki  <okazaki@be.to>
+
+       * elsp-bsfilter.el (elmo-spam-bsfilter-update-switch): Change
+       default value to `--auto-update'.
+
 2008-07-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'.
index 8c1a26b..980e939 100644 (file)
@@ -56,7 +56,7 @@
   :type '(repeat string)
   :group 'elmo-spam-bsfilter)
 
-(defcustom elmo-spam-bsfilter-update-switch "--synchronous-auto-update"
+(defcustom elmo-spam-bsfilter-update-switch "--auto-update"
   "*The switch that Bsfilter uses to update database with classify."
   :type 'string
   :group 'elmo-spam-bsfilter)
index d329184..ddd4228 100644 (file)
@@ -1,3 +1,19 @@
+2009-03-16  Tetsurou Okazaki  <okazaki@be.to>
+
+       * wl-summary.el (wl-summary-previous-message-number): New function.
+       (wl-summary-next-message-number): Ditto.
+       (wl-summary-default-get-next-msg): Use `wl-summary-previous-message-number' and
+       `wl-summary-next-message-number'.
+       (wl-summary-get-prev-unread-folder): Use `with-current-buffer' instead of `save-excursion'.
+       Inline temporary variable `cur-id'.
+       (wl-summary-get-next-unread-folder): Ditto.
+       (wl-summary-get-next-folder): Ditto.
+       (wl-summary-get-prev-folder): Ditto.  Remove a local variable `last-entity'.
+
+2009-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-demo.el (wl-demo-copyright-notice): Add 2009.
+
 2008-09-05  Kenichi Okada  <okada@opaopa.org>
 
        * wl-summary.el (wl-summary-buffer-folder-name)
index d044f34..ac04708 100644 (file)
@@ -4412,36 +4412,34 @@ Use function list is `wl-summary-write-current-folder-functions'."
                (wl-summary-entity-info-msg next-entity finfo)))))))))
 
 (defun wl-summary-get-prev-folder ()
-  (let ((folder-buf (get-buffer wl-folder-buffer-name))
-       last-entity cur-id)
+  (let ((folder-buf (get-buffer wl-folder-buffer-name)))
     (when folder-buf
-      (setq cur-id (save-excursion (set-buffer folder-buf)
-                                  wl-folder-buffer-cur-entity-id))
-      (wl-folder-get-prev-folder cur-id))))
+      (wl-folder-get-prev-folder
+       (with-current-buffer folder-buf
+        wl-folder-buffer-cur-entity-id)))))
 
 (defun wl-summary-get-next-folder ()
-  (let ((folder-buf (get-buffer wl-folder-buffer-name))
-       cur-id)
+  (let ((folder-buf (get-buffer wl-folder-buffer-name)))
     (when folder-buf
-      (setq cur-id (save-excursion (set-buffer folder-buf)
-                                  wl-folder-buffer-cur-entity-id))
-      (wl-folder-get-next-folder cur-id))))
+      (wl-folder-get-next-folder
+       (with-current-buffer folder-buf
+        wl-folder-buffer-cur-entity-id)))))
 
 (defun wl-summary-get-next-unread-folder ()
-  (let ((folder-buf (get-buffer wl-folder-buffer-name))
-       cur-id)
+  (let ((folder-buf (get-buffer wl-folder-buffer-name)))
     (when folder-buf
-      (setq cur-id (save-excursion (set-buffer folder-buf)
-                                  wl-folder-buffer-cur-entity-id))
-      (wl-folder-get-next-folder cur-id 'unread))))
+      (wl-folder-get-next-folder
+       (with-current-buffer folder-buf
+        wl-folder-buffer-cur-entity-id)
+       'unread))))
 
 (defun wl-summary-get-prev-unread-folder ()
-  (let ((folder-buf (get-buffer wl-folder-buffer-name))
-       cur-id)
+  (let ((folder-buf (get-buffer wl-folder-buffer-name)))
     (when folder-buf
-      (setq cur-id (save-excursion (set-buffer folder-buf)
-                                  wl-folder-buffer-cur-entity-id))
-      (wl-folder-get-prev-folder cur-id 'unread))))
+      (wl-folder-get-prev-folder
+       (with-current-buffer folder-buf
+        wl-folder-buffer-cur-entity-id)
+       'unread))))
 
 (defun wl-summary-down (&optional interactive skip-no-unread)
   (interactive)
@@ -5055,14 +5053,27 @@ If ARG is numeric number, decode message as following:
 ;;                                         sum))
 ;;     (message "Dropping...done"))))
 
+(defun wl-summary-previous-message-number (msg)
+  "Return a message number previous to the message specified by MSG."
+  (let ((list wl-summary-buffer-number-list)
+       previous)
+    (while (and list (not (eq msg (car list))))
+      (setq previous (car list))
+      (setq list (cdr list)))
+    previous))
+
+(defun wl-summary-next-message-number (msg)
+  "Return a message number next to the message specified by MSG."
+  (cadr (memq msg wl-summary-buffer-number-list)))
+
 (defun wl-summary-default-get-next-msg (msg)
   (or (wl-summary-next-message msg
                               (if wl-summary-move-direction-downward 'down
                                 'up)
                               nil)
-      (cadr (memq msg (if wl-summary-move-direction-downward
-                         wl-summary-buffer-number-list
-                       (reverse wl-summary-buffer-number-list))))))
+      (if wl-summary-move-direction-downward
+         (wl-summary-next-message-number msg)
+       (wl-summary-previous-message-number msg))))
 
 (defun wl-summary-save-current-message ()
   "Save current message for `wl-summary-yank-saved-message'."