[Emacs-diffs] /srv/bzr/emacs/trunk r105083: * mh-folder.el (mh-inc-folder, mh-modify, mh-scan-folder)

[Bill Wohler]

------------------------------------------------------------
revno: 105083
committer: Bill Wohler <address@hidden>
branch nick: trunk
timestamp: Sun 2011-07-10 09:23:40 -0700
message:
  * 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.
modified:
  lisp/mh-e/ChangeLog
  lisp/mh-e/mh-folder.el

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2011-07-09 20:25:54 +0000
+++ b/lisp/mh-e/ChangeLog       2011-07-10 16:23:40 +0000
@@ -1,3 +1,10 @@
+2011-07-10  Bill Wohler  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mh-speed.el (mh-speed-toggle,mh-speed-view): Document "ignored"

=== modified file 'lisp/mh-e/mh-folder.el'
--- a/lisp/mh-e/mh-folder.el    2011-07-04 02:17:42 +0000
+++ b/lisp/mh-e/mh-folder.el    2011-07-10 16:23:40 +0000
@@ -795,7 +795,7 @@
              (setq threading-needed-flag mh-show-threads-flag)
              (setq mh-previous-window-config config))
             ((not (eq (current-buffer) (get-buffer folder)))
-             (switch-to-buffer folder)
+             (pop-to-buffer folder)
              (setq mh-previous-window-config config))))
     (mh-get-new-mail file)
     (when (and threading-needed-flag
@@ -855,7 +855,7 @@
 
     ;; Just show the edit buffer...
     (delete-other-windows)
-    (switch-to-buffer edit-buffer)))
+    (pop-to-buffer edit-buffer)))
 
 ;;;###mh-autoload
 (defun mh-next-button (&optional backward-flag)
@@ -1705,7 +1705,7 @@
          (unless dont-exec-pending
            (mh-process-or-undo-commands folder)
            (mh-reset-threads-and-narrowing))
-         (switch-to-buffer folder)))
+         (pop-to-buffer folder)))
   (mh-regenerate-headers range)
   (if (zerop (buffer-size))
       (if (equal range "all")
@@ -1786,7 +1786,7 @@
 (defun mh-make-folder (name)
   "Create a new mail folder called NAME.
 Make it the current folder."
-  (switch-to-buffer name)
+  (pop-to-buffer name)
   (setq buffer-read-only nil)
   (erase-buffer)
   (if mh-adaptive-cmd-note-flag