diff options
Diffstat (limited to 'lisp/mh-e/mh-folder.el')
-rw-r--r-- | lisp/mh-e/mh-folder.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index 2248221664..1d9a79d0de 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -795,7 +795,7 @@ instead." (setq threading-needed-flag mh-show-threads-flag) (setq mh-previous-window-config config)) ((not (eq (current-buffer) (get-buffer folder))) - (pop-to-buffer folder) + (mh-pop-to-buffer-same-window folder) (setq mh-previous-window-config config)))) (mh-get-new-mail file) (when (and threading-needed-flag @@ -855,7 +855,7 @@ From a program, edit MESSAGE; nil means edit current message." ;; Just show the edit buffer... (delete-other-windows) - (pop-to-buffer edit-buffer))) + (mh-pop-to-buffer-same-window edit-buffer))) ;;;###mh-autoload (defun mh-next-button (&optional backward-flag) @@ -1705,7 +1705,7 @@ DONT-EXEC-PENDING is non-nil." (unless dont-exec-pending (mh-process-or-undo-commands folder) (mh-reset-threads-and-narrowing)) - (pop-to-buffer folder))) + (mh-pop-to-buffer-same-window folder))) (mh-regenerate-headers range) (if (zerop (buffer-size)) (if (equal range "all") @@ -1786,7 +1786,7 @@ Also removes all content from the folder buffer." (defun mh-make-folder (name) "Create a new mail folder called NAME. Make it the current folder." - (pop-to-buffer name) + (mh-pop-to-buffer-same-window name) (setq buffer-read-only nil) (erase-buffer) (if mh-adaptive-cmd-note-flag |