ソースを参照

Don't try to store link if point is at end of buffer.

* org-wl.el (org-wl-store-link): Don't try to store link if point is
at end of buffer.
David Maus 14 年 前
コミット
9e6391389c
1 ファイル変更8 行追加7 行削除
  1. 8 7
      lisp/org-wl.el

+ 8 - 7
lisp/org-wl.el

@@ -142,13 +142,14 @@ ENTITY is a message entity."
 
 (defun org-wl-store-link ()
   "Store a link to a WL message or folder."
-  (cond
-   ((memq major-mode '(wl-summary-mode mime-view-mode))
-    (org-wl-store-link-message))
-   ((eq major-mode 'wl-folder-mode)
-    (org-wl-store-link-folder))
-   (t
-    nil)))
+  (unless (eobp)
+    (cond
+     ((memq major-mode '(wl-summary-mode mime-view-mode))
+      (org-wl-store-link-message))
+     ((eq major-mode 'wl-folder-mode)
+      (org-wl-store-link-folder))
+     (t
+      nil))))
 
 (defun org-wl-store-link-folder ()
   "Store a link to a WL folder."