Explorar o código

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 %!s(int64=14) %!d(string=hai) anos
pai
achega
9e6391389c
Modificáronse 1 ficheiros con 8 adicións e 7 borrados
  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."