(add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
)
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Store and restore the window configuration
+
+(defadvice vm (before ff/store-window-configuration nil activate)
+ (unless (boundp 'ff/window-configuration-before-vm)
+ (setq ff/window-configuration-before-vm (current-window-configuration)))
+ )
+
+(defadvice vm-quit (after ff/restore-window-configuration nil activate)
+ (when (boundp 'ff/window-configuration-before-vm)
+ (set-window-configuration ff/window-configuration-before-vm)
+ (makunbound 'ff/window-configuration-before-vm)
+ )
+)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
(setq-default vm-summary-show-threads t)
;; (setq vm-preview-lines nil)
(when (>= emacs-major-version 22)
(bbdb-insinuate-vm)
- (ff/mail-aliases-from-bbdb))
+ (ff/mail-aliases-from-bbdb)
+ )
)
(defun ff/pipe-to-tmp () (interactive)