~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot-emacs: Fix calls to mdw-regexps.
[profile]
/
vm
diff --git
a/vm
b/vm
index
345d67f
..
fcd353d
100644
(file)
--- a/
vm
+++ b/
vm
@@
-23,6
+23,9
@@
vm-move-after-deleting t
vm-delete-empty-folders)
vm-move-after-deleting t
vm-delete-empty-folders)
+(and (eq (terminal-coding-system) 'utf-8)
+ (add-to-list 'vm-mime-default-face-charsets "utf-8"))
+
(setq vm-mime-qp-encoder-program "mimencode"
vm-mime-qp-encoder-switches '("-q")
vm-mime-qp-decoder-program "mimencode"
(setq vm-mime-qp-encoder-program "mimencode"
vm-mime-qp-encoder-switches '("-q")
vm-mime-qp-decoder-program "mimencode"
@@
-56,8
+59,8
@@
("image/gif" "display")
("image/bmp" "display")
("image/tiff" "display")
("image/gif" "display")
("image/bmp" "display")
("image/tiff" "display")
- ("application/postscript" "
gv
")
- ("application/pdf" "
gv
")))
+ ("application/postscript" "
evince
")
+ ("application/pdf" "
evince
")))
(setq vm-url-browser "firefox")
(setq vm-url-browser "firefox")
@@
-109,3
+112,10
@@
(insert (format "To: %s\n" (join-strings ", " new))))))))))
(add-hook 'vm-reply-hook 'mdw-vm-fix-mailing-lists)
(insert (format "To: %s\n" (join-strings ", " new))))))))))
(add-hook 'vm-reply-hook 'mdw-vm-fix-mailing-lists)
+
+(defun mdw-mark-as-spam ()
+ (interactive)
+ (save-window-excursion
+ (vm-pipe-message-to-command "userv spamd spam" 1))
+ (vm-delete-message 1))
+(define-key vm-summary-mode-map "/" 'mdw-mark-as-spam)