diff options
author | Carsten Dominik <dominik@science.uva.nl> | 2008-12-17 12:36:41 +0000 |
---|---|---|
committer | Carsten Dominik <dominik@science.uva.nl> | 2008-12-17 12:36:41 +0000 |
commit | 333066454142a068aba6e356b570266eede35221 (patch) | |
tree | 4ceed20460883c40d430a37e43aa99ab31f1f633 /lisp/org/org-mhe.el | |
parent | ff28a0bde589681df5c3eb24c45e2679ad0c179a (diff) | |
download | emacs-333066454142a068aba6e356b570266eede35221.tar.gz |
2008-12-17 Carsten Dominik <carsten.dominik@gmail.com>
* Fix typos in comments and docstrings throughout Org-mode.
* org.el (org-get-outline-path): Fix bug if level is not given.
* org-agenda.el (org-finalize-agenda): Fix typo with variable
name.
Diffstat (limited to 'lisp/org/org-mhe.el')
-rw-r--r-- | lisp/org/org-mhe.el | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/lisp/org/org-mhe.el b/lisp/org/org-mhe.el index b5237bac243..43dd6ce0567 100644 --- a/lisp/org/org-mhe.el +++ b/lisp/org/org-mhe.el @@ -5,7 +5,7 @@ ;; Author: Thomas Baumann <thomas dot baumann at ch dot tum dot de> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.15a +;; Version: 6.15d ;; ;; This file is part of GNU Emacs. ;; @@ -110,20 +110,20 @@ supported by MH-E." So if you use sequences, it will now work." (save-excursion (let* ((folder - (if (equal major-mode 'mh-folder-mode) - mh-current-folder - ;; Refer to the show buffer - mh-show-folder-buffer)) - (end-index - (if (boundp 'mh-index-folder) - (min (length mh-index-folder) (length folder)))) - ) + (if (equal major-mode 'mh-folder-mode) + mh-current-folder + ;; Refer to the show buffer + mh-show-folder-buffer)) + (end-index + (if (boundp 'mh-index-folder) + (min (length mh-index-folder) (length folder)))) + ) ;; a simple test on mh-index-data does not work, because ;; mh-index-data is always nil in a show buffer. (if (and (boundp 'mh-index-folder) - (string= mh-index-folder (substring folder 0 end-index))) - (if (equal major-mode 'mh-show-mode) - (save-window-excursion + (string= mh-index-folder (substring folder 0 end-index))) + (if (equal major-mode 'mh-show-mode) + (save-window-excursion (let (pop-up-frames) (when (buffer-live-p (get-buffer folder)) (progn @@ -131,10 +131,10 @@ So if you use sequences, it will now work." (org-mhe-get-message-folder-from-index) ) ))) - (org-mhe-get-message-folder-from-index) - ) - folder - ) + (org-mhe-get-message-folder-from-index) + ) + folder + ) ))) (defun org-mhe-get-message-folder-from-index () @@ -149,7 +149,7 @@ So if you use sequences, it will now work." Be careful if you use sequences." (save-excursion (if (equal major-mode 'mh-folder-mode) - mh-current-folder + mh-current-folder ;; Refer to the show buffer mh-show-folder-buffer))) @@ -158,7 +158,7 @@ Be careful if you use sequences." Be careful if you use sequences." (save-excursion (if (equal major-mode 'mh-folder-mode) - (mh-get-msg-num nil) + (mh-get-msg-num nil) ;; Refer to the show buffer (mh-show-buffer-message-number)))) @@ -167,18 +167,18 @@ Be careful if you use sequences." This will create a show buffer for the corresponding message. If you have a better idea of how to do this then please let us know." (let* ((folder (org-mhe-get-message-folder)) - (num (org-mhe-get-message-num)) - (buffer (get-buffer-create (concat "show-" folder))) - (header-field)) + (num (org-mhe-get-message-num)) + (buffer (get-buffer-create (concat "show-" folder))) + (header-field)) (with-current-buffer buffer (mh-display-msg num folder) (if (equal major-mode 'mh-folder-mode) - (mh-header-display) + (mh-header-display) (mh-show-header-display)) (set-buffer buffer) (setq header-field (mh-get-header-field header)) (if (equal major-mode 'mh-folder-mode) - (mh-show) + (mh-show) (mh-show-show)) header-field))) @@ -197,19 +197,19 @@ folders." (mh-visit-folder (mh-normalize-folder-name folder)) (mh-search-choose) (if (equal mh-searcher 'pick) - (progn + (progn (setq article (org-add-angle-brackets article)) - (mh-search folder (list "--message-id" article)) - (when (and org-mhe-search-all-folders - (not (org-mhe-get-message-real-folder))) - (kill-this-buffer) - (mh-search "+" (list "--message-id" article)))) + (mh-search folder (list "--message-id" article)) + (when (and org-mhe-search-all-folders + (not (org-mhe-get-message-real-folder))) + (kill-this-buffer) + (mh-search "+" (list "--message-id" article)))) (if mh-search-regexp-builder - (mh-search "+" (funcall mh-search-regexp-builder + (mh-search "+" (funcall mh-search-regexp-builder (list (cons 'message-id article)))) - (mh-search "+" article))) + (mh-search "+" article))) (if (org-mhe-get-message-real-folder) - (mh-show-msg 1) + (mh-show-msg 1) (kill-this-buffer) (error "Message not found")))) |