Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-virtual.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents c53a95d3c46d
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
246 (setq vm-virtual-folder-alist 246 (setq vm-virtual-folder-alist
247 (list 247 (list
248 (list name 248 (list name
249 (list (list (list 'get-buffer (buffer-name))) 249 (list (list (list 'get-buffer (buffer-name)))
250 (if arg (list selector arg) (list selector)))))) 250 (if arg (list selector arg) (list selector))))))
251 (vm-visit-virtual-folder name read-only))) 251 (vm-visit-virtual-folder name read-only))
252 ;; have to do this again here because the known virtual
253 ;; folder menu is now hosed because we installed it while
254 ;; vm-virtual-folder-alist was bound to the temp value above
255 (if vm-use-menus
256 (vm-menu-install-known-virtual-folders-menu)))
257
252 258
253 (defun vm-apply-virtual-folder (name &optional read-only) 259 (defun vm-apply-virtual-folder (name &optional read-only)
254 "Apply the selectors of a named virtual folder to the current folder 260 "Apply the selectors of a named virtual folder to the current folder
255 and create a virtual folder containing the selected messages. 261 and create a virtual folder containing the selected messages.
256 262
273 (while clauses 279 (while clauses
274 (setcar (car clauses) (list (list 'get-buffer (buffer-name)))) 280 (setcar (car clauses) (list (list 'get-buffer (buffer-name))))
275 (setq clauses (cdr clauses))) 281 (setq clauses (cdr clauses)))
276 (setcar vfolder (format "%s/%s" (buffer-name) (car vfolder))) 282 (setcar vfolder (format "%s/%s" (buffer-name) (car vfolder)))
277 (setq vm-virtual-folder-alist (list vfolder)) 283 (setq vm-virtual-folder-alist (list vfolder))
278 (vm-visit-virtual-folder (car vfolder) read-only))) 284 (vm-visit-virtual-folder (car vfolder) read-only))
285 ;; have to do this again here because the known virtual
286 ;; folder menu is now hosed because we installed it while
287 ;; vm-virtual-folder-alist was bound to the temp value above
288 (if vm-use-menus
289 (vm-menu-install-known-virtual-folders-menu)))
279 290
280 (defun vm-toggle-virtual-mirror () 291 (defun vm-toggle-virtual-mirror ()
281 (interactive) 292 (interactive)
282 (vm-select-folder-buffer) 293 (vm-select-folder-buffer)
283 (vm-check-for-killed-summary) 294 (vm-check-for-killed-summary)