diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-08-23 19:35:43 +0200 |
|---|---|---|
| committer | David Maus <dmaus@ictsoc.de> | 2010-08-23 19:35:43 +0200 |
| commit | 9e6391389cc196cb121647c6497c7bffd8806a56 (patch) | |
| tree | 7c0069528abe924e71492b7f8004deb5b979dc66 | |
| parent | a7660225af1737cc887fc57a2d2fa87ba8975206 (diff) | |
| download | org-mode-9e6391389cc196cb121647c6497c7bffd8806a56.tar.gz | |
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.
| -rw-r--r-- | lisp/org-wl.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/org-wl.el b/lisp/org-wl.el index f88d830..e1222ed 100644 --- a/lisp/org-wl.el +++ b/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." |