Mercurial > emacs
diff lisp/mh-e/mh-search.el @ 105867:00c0adbb54a9
* mh-thread.el (mh-thread-set-tables):
* mh-speed.el (mh-folder-speedbar-menu-items, mh-speed-stealth-update):
(mh-speed-extract-folder-name, mh-speed-parse-flists-output):
(mh-speed-invalidate-map, mh-speed-add-folder):
* mh-show.el (mh-invalidate-show-buffer, mh-show-sequence-menu):
* mh-seq.el (mh-list-sequences):
* mh-search.el (mh-index-execute-commands, mh-index-add-to-sequence)
(mh-index-delete-from-sequence, mh-index-update-maps):
* mh-scan.el (mh-msg-num-width):
* mh-print.el (mh-ps-spool-buffer):
* mh-mime.el (mh-mime-save-parts, mh-handle-set-external-undisplayer)
(mh-file-mime-type):
* mh-letter.el (mh-yank-cur-msg):
* mh-funcs.el (mh-list-folders, mh-pipe-msg, mh-store-msg)
(mh-store-buffer):
* mh-folder.el (mh-modify, mh-visit-folder, mh-write-msg-to-file)
(mh-prompt-for-refile-folder):
* mh-e.el (mh-exec-cmd, mh-exec-cmd-error, mh-exec-cmd-daemon)
(mh-handle-process-error, mh-variant-info):
* mh-comp.el (mh-forward):
* mh-alias.el (mh-alias-local-users, mh-alias-which-file-has-alias):
(mh-alias-add-alias-to-file): Use with-current-buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 05 Nov 2009 21:04:59 +0000 |
parents | 6837adfb2772 |
children | d3e8af15d7a6 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-search.el Thu Nov 05 21:01:32 2009 +0000 +++ b/lisp/mh-e/mh-search.el Thu Nov 05 21:04:59 2009 +0000 @@ -1463,8 +1463,7 @@ ;; If source folder not open, just delete the messages... (apply #'mh-exec-cmd "rmm" folder (mh-coalesce-msg-list msgs)) ;; Otherwise delete the messages in the source buffer... - (save-excursion - (set-buffer folder) + (with-current-buffer folder (let ((old-refile-list mh-refile-list) (old-delete-list mh-delete-list)) (setq mh-refile-list nil @@ -1642,8 +1641,7 @@ (mh-coalesce-msg-list msgs))) ;; Update source folder buffer if we have it open... (when (get-buffer folder) - (save-excursion - (set-buffer folder) + (with-current-buffer folder (mh-put-msg-in-seq msgs seq)))) (mh-index-matching-source-msgs msgs)) folders)))) @@ -1667,8 +1665,7 @@ (mh-coalesce-msg-list msgs))) ;; Update source folder buffer if we have it open... (when (get-buffer folder) - (save-excursion - (set-buffer folder) + (with-current-buffer folder (mh-delete-msg-from-seq msgs seq t)))) (mh-index-matching-source-msgs msgs)) folders)))) @@ -1853,9 +1850,8 @@ was copied. If present the checksum -> (origin-folder, origin-index) map is updated too." (clrhash mh-index-msg-checksum-map) - (save-excursion - ;; Clear temp buffer - (set-buffer (get-buffer-create mh-temp-checksum-buffer)) + ;; Clear temp buffer + (with-current-buffer (get-buffer-create mh-temp-checksum-buffer) (erase-buffer) ;; Run scan to check if any messages needs MD5 annotations at all (with-temp-buffer @@ -1895,8 +1891,7 @@ (mh-exec-cmd "anno" folder msg "-component" "X-MHE-Checksum" "-nodate" "-text" checksum "-inplace") ;; update maps - (save-excursion - (set-buffer folder) + (with-current-buffer folder (mh-index-update-single-msg msg checksum origin-map))) (forward-line))))) (mh-index-write-data))