diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-05 21:00:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-05 21:00:31 +0000 |
| commit | 81ad75af15f169655ba4c8eada78782367cabbf0 (patch) | |
| tree | 2d3cbd9cfac65ce61d80cfdbca0772c55588100d /lisp/org/org-mac-message.el | |
| parent | 148623016fb5ff868bae887ac52b71a90b470bb2 (diff) | |
| download | emacs-81ad75af15f169655ba4c8eada78782367cabbf0.tar.gz | |
* org.el (org-version, org-get-refile-targets, org-refile)
(org-store-log-note, org-diary-to-ical-string)
(org-speedbar-set-agenda-restriction):
* org-publish.el (org-publish-find-title):
* org-plot.el (org-plot/gnuplot):
* org-mouse.el (org-mouse-do-remotely):
* org-mobile.el (org-mobile-move-capture):
* org-mac-message.el (org-mac-message-insert-flagged):
* org-latex.el (org-replace-region-by-latex):
* org-docbook.el (org-replace-region-by-docbook):
* org-clock.el (org-clock-out, org-clock-cancel):
* org-bibtex.el (org-execute-file-search-in-bibtex):
Use with-current-buffer.
Diffstat (limited to 'lisp/org/org-mac-message.el')
| -rw-r--r-- | lisp/org/org-mac-message.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/org/org-mac-message.el b/lisp/org/org-mac-message.el index ff68fd7756e..b2abe95ad40 100644 --- a/lisp/org/org-mac-message.el +++ b/lisp/org/org-mac-message.el @@ -193,8 +193,7 @@ If heading exists, delete all message:// links within heading's first level. If heading doesn't exist, create it at point-max. Insert list of message:// links to flagged mail after heading." (interactive "bBuffer in which to insert links: \nsHeading after which to insert links: ") - (save-excursion - (set-buffer org-buffer) + (with-current-buffer org-buffer (goto-char (point-min)) (let ((isearch-forward t) (message-re "\\[\\[\\(message:\\)\\([^]]+\\)\\]\\(\\[\\([^]]+\\)\\]\\)?\\]")) |