From: hmurata <hmurata>
Date: Thu, 20 Nov 2003 11:23:22 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-detect-mark-position): Set
X-Git-Tag: wl-2_11_22~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f0d7faabb9d516a7c0a1c86ae693bf3001e07516;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-detect-mark-position): Set
`wl-summary-buffer-weekday-name-lang'.

* modb-standard.el (elmo-msgdb-delete-messages): Dose not process
if the message dose not exist.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 438dbde..a86990d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-standard.el (elmo-msgdb-delete-messages): Dose not process
+	if the message dose not exist.
+
 2003-11-18  Tetsurou Okazaki  <okazaki@be.to>
 
 	* elmo-version.el (elmo-version): Up to 2.11.21.
diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index 3b0db5a..412bad6 100644
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -448,20 +448,21 @@
     (dolist (number numbers)
       (setq key (modb-standard-key number)
 	    entity (elmo-get-hash-val key entity-map))
-      ;; number-list
-      (setq number-list (delq number number-list))
-      ;; entity-map
-      (elmo-clear-hash-val key entity-map)
-      (elmo-clear-hash-val (modb-standard-entity-id entity) entity-map)
-      ;; flag-count (must be BEFORE flag-map)
-      (modb-standard-countup-flags
-       msgdb
-       (modb-standard-message-flags msgdb number)
-       -1)
-      ;; flag-map
-      (elmo-clear-hash-val key flag-map)
-      (modb-standard-set-message-modified msgdb number)
-      (modb-standard-set-flag-modified msgdb number))
+      (when entity
+	;; number-list
+	(setq number-list (delq number number-list))
+	;; entity-map
+	(elmo-clear-hash-val key entity-map)
+	(elmo-clear-hash-val (modb-standard-entity-id entity) entity-map)
+	;; flag-count (must be BEFORE flag-map)
+	(modb-standard-countup-flags
+	 msgdb
+	 (modb-standard-message-flags msgdb number)
+	 -1)
+	;; flag-map
+	(elmo-clear-hash-val key flag-map)
+	(modb-standard-set-message-modified msgdb number)
+	(modb-standard-set-flag-modified msgdb number)))
     (modb-standard-set-number-list-internal msgdb number-list)
     (modb-standard-set-entity-map-internal msgdb entity-map)
     (modb-standard-set-flag-map-internal msgdb flag-map)))
diff --git a/wl/ChangeLog b/wl/ChangeLog
index e0be364..6a299fc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-detect-mark-position): Set
+	`wl-summary-buffer-weekday-name-lang'.
+
 2003-11-19  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-prefetch-msg): Undo the last change.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index f89ff08..249640c 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -706,11 +706,13 @@ you."
 	;; bind only for the check.
 	(wl-summary-new-uncached-mark (char-to-string 201))
 	(wl-summary-flag-priority-list '(new))     ; ditto.
+	(lang wl-summary-buffer-weekday-name-lang)
 	wl-summary-highlight
 	temp persistent)
     (with-temp-buffer
       (setq wl-summary-buffer-number-column column
-	    wl-summary-buffer-line-formatter formatter)
+	    wl-summary-buffer-line-formatter formatter
+	    wl-summary-buffer-weekday-name-lang lang)
       (insert
        (wl-summary-create-line
 	(elmo-msgdb-make-message-entity