(ff/mail-aliases-from-bbdb))
)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; A fast indexed / search in mbox
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; This is one of my own things, check my web page to get it
-
-(when (ff/load-or-alert "~/sources/gpl/mymail/mymail-vm.el")
-
- (define-key vm-summary-mode-map "\\" 'mymail/vm-visit-folder)
- (define-key global-map [S-f7] 'mymail/vm-visit-folder)
- (setq mymail/default-search-request "today"
- mymail/default-additional-search-requests "!s ^\\[SPAM\\],!s \\] STATUS,")
- (add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
-)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
+(defun ff/pipe-to-tmp () (interactive)
+ (let ((link "/tmp/attach")
+ (dir (format-time-string "/tmp/attach-%Y%m%d-%H%M%S" (current-time))))
+ (mkdir dir)
+ (when (file-symlink-p link) (delete-file link))
+ (unless (file-exists-p link)
+ (make-symbolic-link dir "/tmp/attach" 1))
+ (vm-pipe-message-to-command (concat "munpack -C " dir))
+ (message "Wrote files to %s" dir)
+ )
+ )