ソースを参照

org-rmail.el: Fix bug when storing and inserting a link.

* org-rmail.el (org-rmail-store-link, org-rmail-follow-link):
Toggle headers when necessary.

Thanks to T.F. Torrey for reporting this bug and for proposing a fix.
Bastien Guerry 12 年 前
コミット
1f7263d6b1
1 ファイル変更4 行追加0 行削除
  1. 4 0
      lisp/org-rmail.el

+ 4 - 0
lisp/org-rmail.el

@@ -52,6 +52,8 @@
 	  (rmail-show-message rmail-current-message))
 	(when (fboundp 'rmail-narrow-to-non-pruned-header)
 	  (rmail-narrow-to-non-pruned-header))
+	(when (eq rmail-header-style 'normal)
+	  (rmail-toggle-header -1))
 	(let* ((folder buffer-file-name)
 	       (message-id (mail-fetch-field "message-id"))
 	       (from (mail-fetch-field "from"))
@@ -98,6 +100,8 @@
 	(setq message-number
 	      (save-restriction
 		(widen)
+		(when (eq rmail-header-style 'normal)
+		  (rmail-toggle-header -1))
 		(goto-char (point-max))
 		(if (re-search-backward
 		     (concat "^Message-ID:\\s-+" (regexp-quote