(wl-summary-print-destination): Do nothing when folder is nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a2bcb4b..b4feb60 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-18  Yuuichi Teranishi  <teranisi@ns.templewest.net>
+
+       * wl-action.el (wl-summary-print-destination): 
+       Do nothing when folder is nil.
+
 2003-07-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-prefetch-region-no-mark): Update

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 2923b79..5174481 100644 (file)
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -740,32 +740,33 @@ Return number if put mark succeed"
 
 (defun wl-summary-print-destination (msg-num folder)
   "Print refile destination on line."
-  (wl-summary-remove-destination)
-  (save-excursion
-    (let ((inhibit-read-only t)
-         (folder (copy-sequence folder))
-         (buffer-read-only nil)
-         len rs re c)
-      (setq len (string-width folder))
-      (if (< len 1) ()
-       ;;(end-of-line)
-       (beginning-of-line)
-       (search-forward "\r")
-       (forward-char -1)
-       (setq re (point))
-       (setq c 0)
-       (while (< c len)
+  (when folder
+    (wl-summary-remove-destination)
+    (save-excursion
+      (let ((inhibit-read-only t)
+           (folder (copy-sequence folder))
+           (buffer-read-only nil)
+           len rs re c)
+       (setq len (string-width folder))
+       (if (< len 1) ()
+         ;;(end-of-line)
+         (beginning-of-line)
+         (search-forward "\r")
          (forward-char -1)
-         (setq c (+ c (char-width (following-char)))))
-       (and (> c len) (setq folder (concat " " folder)))
-       (setq rs (point))
-       (when wl-summary-width
-         (put-text-property rs re 'invisible t))
-       (put-text-property rs re 'wl-summary-destination t)
-       (goto-char re)
-       (wl-highlight-refile-destination-string folder)
-       (insert folder)
-       (set-buffer-modified-p nil)))))
+         (setq re (point))
+         (setq c 0)
+         (while (< c len)
+           (forward-char -1)
+           (setq c (+ c (char-width (following-char)))))
+         (and (> c len) (setq folder (concat " " folder)))
+         (setq rs (point))
+         (when wl-summary-width
+           (put-text-property rs re 'invisible t))
+         (put-text-property rs re 'wl-summary-destination t)
+         (goto-char re)
+         (wl-highlight-refile-destination-string folder)
+         (insert folder)
+         (set-buffer-modified-p nil))))))
 
 (defsubst wl-summary-reserve-temp-mark-p (mark)
   "Return t if temporal MARK should be reserved."