- ;; browse-url-mozilla-program "iceweasel"
- ;; mail-complete-style nil
- ;; mail-from-style nil
- ;; vm-coding-system-priorities '(utf-8)
- ;; vm-highlighted-header-regexp "From:\\|Subject:\\|Cc:\\|To:\\|Bcc:\\|Reply-To:"
- ;; vm-included-text-attribution-format "\nOn %w, %m %d, at %H, you wrote:\n\n"
- ;; vm-jump-to-new-messages nil
- ;; vm-mime-7bit-composition-charset "latin-1"
- ;; vm-mime-8bit-composition-charset "utf-8"
- ;; vm-preview-read-messages t
- ;; vm-summary-format " %*%A %-3.3m %2d %5US %I%UA %s\n"
- ;; vm-summary-uninteresting-senders-arrow "->"
- ;; vm-summary-uninteresting-senders-arrow "►"
- ;; vm-summary-uninteresting-senders-arrow "➔"
- ;; vm-summary-uninteresting-senders-arrow "➤"
- bbdb-send-mail-style 'vm
- bbdb/mail-auto-create-p nil
- mail-signature t
- mail-specify-envelope-from t
- vm-auto-folder-case-fold-search t
- vm-auto-get-new-mail t
- vm-circular-folders nil
- vm-confirm-new-folders t
- vm-delete-after-archiving t
- vm-delete-after-saving t
- vm-forwarding-digest-type "mime"
- vm-forwarding-subject-format "(forwarded from %F) %s"
- vm-frame-per-folder nil
- vm-frame-per-summary nil
- vm-highlighted-header-regexp "From:\\|Subject:\\|Reply-To:"
- vm-in-reply-to-format nil
- vm-included-text-attribution-format "\nOn %w, %m %d, %y (%h), %F wrote:\n\n"
- vm-included-text-prefix " > "
- vm-keep-sent-messages nil
- vm-mime-8bit-composition-charset "iso-8859-1"
- vm-mime-attachment-save-directory "~/misc/attachments"
- vm-mime-yank-attachments nil
- vm-mutable-frames nil
- vm-mutable-windows t
- vm-netscape-program browse-url-mozilla-program
- vm-preview-lines nil
- vm-reply-subject-prefix "Re: "
- vm-skip-deleted-messages nil
- vm-skip-read-messages nil
- vm-startup-message-displayed t
- vm-startup-with-summary t
- vm-summary-arrow "> "
- vm-summary-format " %*%a %-3.3m %2d %5US %I%UA %s\n"
- vm-summary-thread-indent-level 1
- vm-summary-uninteresting-senders-arrow ">"
- vm-use-menus nil
- vm-use-toolbar nil
- vm-use-toolbar nil
- )
+ ;; browse-url-mozilla-program "iceweasel"
+ ;; mail-complete-style nil
+ ;; mail-from-style nil
+ ;; vm-coding-system-priorities '(utf-8)
+ ;; vm-highlighted-header-regexp "From:\\|Subject:\\|Cc:\\|To:\\|Bcc:\\|Reply-To:"
+ ;; vm-included-text-attribution-format "\nOn %w, %m %d, at %H, you wrote:\n\n"
+ ;; vm-jump-to-new-messages nil
+ ;; vm-mime-7bit-composition-charset "latin-1"
+ ;; vm-mime-8bit-composition-charset "utf-8"
+ ;; vm-preview-read-messages t
+ ;; vm-summary-format " %*%A %-3.3m %2d %5US %I%UA %s\n"
+ ;; vm-summary-uninteresting-senders-arrow "->"
+ ;; vm-summary-uninteresting-senders-arrow "►"
+ ;; vm-summary-uninteresting-senders-arrow "➔"
+ ;; vm-summary-uninteresting-senders-arrow "➤"
+ bbdb-send-mail-style 'vm
+ bbdb/mail-auto-create-p nil
+ mail-signature t
+ mail-specify-envelope-from t
+ vm-auto-folder-case-fold-search t
+ vm-auto-get-new-mail t
+ vm-circular-folders nil
+ vm-confirm-new-folders t
+ vm-delete-after-archiving t
+ vm-delete-after-saving t
+ vm-forwarding-digest-type "mime"
+ vm-forwarding-subject-format "(forwarded from %F) %s"
+ vm-frame-per-folder nil
+ vm-frame-per-summary nil
+ vm-highlighted-header-regexp "From:\\|Subject:\\|Reply-To:"
+ vm-in-reply-to-format nil
+ vm-included-text-attribution-format "\nOn %w, %m %d, %y (%h), %F wrote:\n\n"
+ vm-included-text-prefix " > "
+ vm-keep-sent-messages nil
+ vm-mime-8bit-composition-charset "iso-8859-1"
+ vm-mime-attachment-save-directory "~/misc/attachments"
+ vm-mime-yank-attachments nil
+ vm-mutable-frames nil
+ vm-mutable-windows t
+ vm-netscape-program browse-url-mozilla-program
+ vm-preview-lines nil
+ vm-reply-subject-prefix "Re: "
+ vm-skip-deleted-messages nil
+ vm-skip-read-messages nil
+ vm-startup-message-displayed t
+ vm-startup-with-summary t
+ vm-summary-arrow "> "
+ vm-summary-format " %*%a %-3.3m %2d %5US %I%UA %s\n"
+ vm-summary-thread-indent-level 1
+ vm-summary-uninteresting-senders-arrow ">"
+ vm-use-menus nil
+ vm-use-toolbar nil
+ vm-use-toolbar nil
+ )
- ;; No easy way to activate vm-mail-mode, so we create such a
- ;; buffer, erase its content and insert the file
- (vm-compose-mail)
- (when (file-exists-p filename)
- (erase-buffer)
- (insert-file filename))
- (set-visited-file-name filename)
- (set-buffer-modified-p nil)
- ;; (run-hooks find-file-hooks)
- (when (functionp 'alarm-vc-check) (alarm-vc-check))
- ;; Move the cursor at a convenient location
- (when (re-search-forward (concat "^" mail-header-separator "$") nil t)
- (if (re-search-forward "^-- $" nil t)
- (previous-line 1)
- (next-line 1))
- (end-of-line))
- )
+ ;; No easy way to activate vm-mail-mode, so we create such a
+ ;; buffer, erase its content and insert the file
+ (vm-compose-mail)
+ (when (file-exists-p filename)
+ (erase-buffer)
+ (insert-file filename))
+ (set-visited-file-name filename)
+ (set-buffer-modified-p nil)
+ ;; (run-hooks find-file-hooks)
+ (when (functionp 'alarm-vc-check) (alarm-vc-check))
+ ;; Move the cursor at a convenient location
+ (when (re-search-forward (concat "^" mail-header-separator "$") nil t)
+ (if (re-search-forward "^-- $" nil t)
+ (previous-line 1)
+ (next-line 1))
+ (end-of-line))
+ )
- (let ((field (save-excursion
- (end-of-line)
- (re-search-backward
- (concat "\\(^[a-zA-Z\-]*: \\|^" mail-header-separator "$\\)") nil t)
- (match-string 1))))
-
- (cond ((string= field "To: ")
- (expand-abbrev)
- (re-search-forward "Subject: ")
- (end-of-line))
-
- ((string= field "Subject: ")
- (re-search-forward (concat "^" mail-header-separator "$"))
- (if (re-search-forward "^-- $" nil t)
- (previous-line 1)
- (next-line 1))
- (end-of-line))
-
- (t (beginning-of-buffer)
- (re-search-forward "^To: ")
- (end-of-line)
- (re-search-forward "^[a-zA-Z\-]*: ")
- (beginning-of-line)
- (backward-char)))))
+ (let ((field (save-excursion
+ (end-of-line)
+ (re-search-backward
+ (concat "\\(^[a-zA-Z\-]*: \\|^" mail-header-separator "$\\)") nil t)
+ (match-string 1))))
+
+ (cond ((string= field "To: ")
+ (expand-abbrev)
+ (re-search-forward "Subject: ")
+ (end-of-line))
+
+ ((string= field "Subject: ")
+ (re-search-forward (concat "^" mail-header-separator "$"))
+ (if (re-search-forward "^-- $" nil t)
+ (previous-line 1)
+ (next-line 1))
+ (end-of-line))
+
+ (t (beginning-of-buffer)
+ (re-search-forward "^To: ")
+ (end-of-line)
+ (re-search-forward "^[a-zA-Z\-]*: ")
+ (beginning-of-line)
+ (backward-char)))))
-(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)
+(defun ff/pipe-to-tmp (universal)
+ (interactive "P")
+
+ (if universal (vm-pipe-message-to-command)
+
+ (let ((link "/tmp/at")
+ (dir (format-time-string "/tmp/at-%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 link 1))
+ (vm-pipe-message-to-command (concat "munpack -C " dir))
+ (message "Wrote files to %s" dir)
+ )
+