Commit 84bb0cd1 authored by Bill Wohler's avatar Bill Wohler
Browse files

* mh-folder.el (mh-inc-folder, mh-modify, mh-scan-folder)

(mh-make-folder): Replace calls to switch-to-buffer with of
pop-to-buffer. The former is intended for interactive use only and
generates warnings in Emacs 24.
parent 18d59e29
2011-07-10 Bill Wohler <wohler@newt.com>
* mh-folder.el (mh-inc-folder, mh-modify, mh-scan-folder)
(mh-make-folder): Replace calls to switch-to-buffer with of
pop-to-buffer. The former is intended for interactive use only and
generates warnings in Emacs 24.
2011-07-09 Bill Wohler <wohler@newt.com> 2011-07-09 Bill Wohler <wohler@newt.com>
* mh-speed.el (mh-speed-toggle,mh-speed-view): Document "ignored" * mh-speed.el (mh-speed-toggle,mh-speed-view): Document "ignored"
......
...@@ -795,7 +795,7 @@ instead." ...@@ -795,7 +795,7 @@ instead."
(setq threading-needed-flag mh-show-threads-flag) (setq threading-needed-flag mh-show-threads-flag)
(setq mh-previous-window-config config)) (setq mh-previous-window-config config))
((not (eq (current-buffer) (get-buffer folder))) ((not (eq (current-buffer) (get-buffer folder)))
(switch-to-buffer folder) (pop-to-buffer folder)
(setq mh-previous-window-config config)))) (setq mh-previous-window-config config))))
(mh-get-new-mail file) (mh-get-new-mail file)
(when (and threading-needed-flag (when (and threading-needed-flag
...@@ -855,7 +855,7 @@ From a program, edit MESSAGE; nil means edit current message." ...@@ -855,7 +855,7 @@ From a program, edit MESSAGE; nil means edit current message."
;; Just show the edit buffer... ;; Just show the edit buffer...
(delete-other-windows) (delete-other-windows)
(switch-to-buffer edit-buffer))) (pop-to-buffer edit-buffer)))
;;;###mh-autoload ;;;###mh-autoload
(defun mh-next-button (&optional backward-flag) (defun mh-next-button (&optional backward-flag)
...@@ -1705,7 +1705,7 @@ DONT-EXEC-PENDING is non-nil." ...@@ -1705,7 +1705,7 @@ DONT-EXEC-PENDING is non-nil."
(unless dont-exec-pending (unless dont-exec-pending
(mh-process-or-undo-commands folder) (mh-process-or-undo-commands folder)
(mh-reset-threads-and-narrowing)) (mh-reset-threads-and-narrowing))
(switch-to-buffer folder))) (pop-to-buffer folder)))
(mh-regenerate-headers range) (mh-regenerate-headers range)
(if (zerop (buffer-size)) (if (zerop (buffer-size))
(if (equal range "all") (if (equal range "all")
...@@ -1786,7 +1786,7 @@ Also removes all content from the folder buffer." ...@@ -1786,7 +1786,7 @@ Also removes all content from the folder buffer."
(defun mh-make-folder (name) (defun mh-make-folder (name)
"Create a new mail folder called NAME. "Create a new mail folder called NAME.
Make it the current folder." Make it the current folder."
(switch-to-buffer name) (pop-to-buffer name)
(setq buffer-read-only nil) (setq buffer-read-only nil)
(erase-buffer) (erase-buffer)
(if mh-adaptive-cmd-note-flag (if mh-adaptive-cmd-note-flag
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment