;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Activate the required modes and authorize the commenting
+(defun ff/does-not-fill (&optional a b) (interactive) (message "Nope"))
+
(defun ff/prepare-mail-mode ()
(bbdb-define-all-aliases)
(flyspell-mode)
- (auto-fill-mode)
(mail-abbrevs-setup)
(yas/minor-mode)
- ;; (setq fill-paragraph-function 'mail-mode-fill-paragraph)
+ ;; Let's try the visual-line mode for mails
- ;; Since I set the comment prefix, I have to tell the filling
- ;; functions not to use it
+ (auto-fill-mode)
+ ;; (setq fill-paragraph-function 'ff/does-not-fill)
+ ;; (visual-line-mode)
- ;; ******************* removed Aug 23
- ;; (setq fill-paragraph-handle-comment nil)
- ;; ;; (when message-yank-prefix
(set (make-local-variable 'comment-start) vm-included-text-prefix)
- ;; (set (make-local-variable 'comment-start-skip)
- ;; (concat "^\\(" (regexp-quote vm-included-text-prefix) "\\)"))
- ;; ;; )
)
(add-hook 'mail-mode-hook 'ff/prepare-mail-mode)
-;; (add-hook 'mail-mode-hook 'orgtbl-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; To have a slightly darker background for headers
(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))
+ ;; (vm-pipe-message-to-command (concat "munpack -C " dir))
+ (vm-pipe-message-to-command (concat "munpack -t -C " dir))
(message "Wrote files to %s" dir)
)
(message "No attachments to be saved!"))))
(define-key vm-summary-mode-map [(control c) (control s)] 'ff/vm-mime-save-all-attachments)
+
+;; I do not like relief
+
+(ff/configure-faces
+ '(
+
+ (vm-highlight-url :background "white" :foreground "#0000f0" :box nil)
+ (vm-highlighted-header :box nil) ;; :weight 'bold :background "white")
+
+ (vm-attachment-button :background "#f0d0d0" :box nil)
+ (vm-attachment-button-mouse :background "#f0d0d0" :box nil)
+ (vm-attachment-button-pressed-face :background "#f0d0d0" :box nil)
+ (vm-mime-button :background "#f0d0d0" :box nil)
+ (vm-mime-button-mouse :background "#f0d0d0" :box nil)
+ (vm-mime-button-pressed-face :background "#f0d0d0" :box nil)
+ ))