~vm/vm/vmpc-prompt

;;; .vm --- Example ~/.vm

;;;

;;; -*- emacs-lisp -*-

;;;

;;; Copyright (C) 2007 Robert Widhopf-Fenk

;;;

;;; This program is free software; you can redistribute it and/or modify

;;; it under the terms of the GNU General Public License as published by

;;; the Free Software Foundation; either version 1, or (at your option)

;;; any later version.

;;;

;;; This program is distributed in the hope that it will be useful,

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; GNU General Public License for more details.

;;;

;;; You should have received a copy of the GNU General Public License

;;; along with this program; if not, write to the Free Software

;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

;;;

;;; You may use this file as a starting point for setting up and customizing

;;; VM to your own needs.

;;*****************************************************************************

;; Make VM your default mail agent in Emacs

(setq mail-user-agent 'vm-user-agent)

;;*****************************************************************************

;; Two ways of using VM:

;; - downloading mail to local folders

;; - reading mail on mail servers from anywhere on the internet

;; For local folders, set these variables:

(setq vm-folder-directory "~/mail")

(setq 

 ;; vm-primary-inbox is the filesystem path to where VM stores

 ;; downloaded messages: 

 vm-primary-inbox "~/INBOX"

 ;; vm-crash-box is where messages are stored temporarily as it is moved into

 ;; your primary inbox file (vm-primary-inbox). Here we just tack on a

 ;; .crash to name it separately:

 vm-crash-box (concat vm-primary-inbox ".crash"))

;; vm-spool-files is a list of lists, each sublist should be of the form

;;   (INBOX SPOOLNAME CRASHBOX)

(setq vm-spool-files

      (list

       ;; You can drop mail to the same inbox from different spool files.

       (list vm-primary-inbox "/var/spool/mail/username1" vm-crash-box)

       (list vm-primary-inbox "/var/spool/mail/username2" vm-crash-box)

       ;; Another spool file

       (list "spam" (expand-file-name "~spam/drop")

             (concat vm-folder-directory "spam.crash"))

       ;; POP

       (list "gmail.pop" 

	     "pop:pop.google.com:110:pass:YourEmailAddress:*"

             (concat vm-folder-directory "gmail.pop.crash"))

       ;; POP-SSL 

       (list "gmail.pop" 

	     "pop-ssl:pop.google.com:995:pass:YourEmailAddress:*"

             (concat vm-folder-directory "gmail.pop.crash"))

       ;; IMAP

       (list "gmail.imap" 

	     "imap:imap.google.com:143:inbox:login:YourEmailAddress:*"

             (concat vm-folder-directory "gmail.imap.crash"))

       ))

;; For server folders, set these variables:

(setq vm-primary-inbox

      ;; use one of these two

      ;; for POP server 

      "pop:pop.google.com:110:pass:YourEmailAddress:*"

      ;; for IMAP server 

      "imap:imap.google.com:143:inbox:login:YourEmailAddress:*"

      )

(setq vm-pop-folder-cache-directory "~/mailcache")

(setq vm-imap-folder-cache-directory "~/mailcache")

(setq vm-pop-folder-alist

      ;; for other POP servers

      '(("pop:pop3.blueyonder.co.uk:110:pass:YourEmailAddress:*" 

	 "blueyonder")

	("pop:mailhost.cs.bham.ac.uk:110:pass:YourEmailAddress:*" 

	 "bham")))

(setq vm-imap-account-alist

      ;; for other IMAP servers

      '(("imap:imap4.blueyonder.co.uk:143:*:login:YourEmailAddress:*" 

	 "blueyonder")

	("imap:mailhost.cs.bham.ac.uk:143:*:login:YourEmailAddress:*" 

	 "bham")

	))

;;*****************************************************************************

;; Summary 

;; See the recipients for emails you sent instead of yourself.

(setq vm-summary-uninteresting-senders 

      (regexp-opt '("@robf.de" "Robert Widhopf-Fenk")))

;; Change the summary format by setting `vm-summary-format'.

;; Run "M-x vm-fix-my-summary!!! RET" to fix existing summaries.

;;*****************************************************************************

;; Viewing messages

;;

;; HTML messages can be converted to text or the w3 resp. w3m Emacs viewers

;; can be used for displaying. 

(setq  vm-mime-type-converter-alist

      '(("text/html" "text/plain" "lynx -force_html -dump /dev/stdin")

        ("message/delivery-status"  "text/plain")

        ("application/zip"  "text/plain" "listzip")

        ("application/x-zip-compressed"  "text/plain" "zipinfo /dev/stdin")

        ("application/x-www-form-urlencoded"  "text/plain")

        ("message/disposition-notification"  "text/plain")

        ("application/mac-binhex40" "application/octet-stream" "hexbin -s"))

;; Set up w3m (you should check if it exists)

(require 'vm-w3m)

(setq vm-included-mime-types-list

      '("text/plain" "text/html" "text/enriched" "message/rfc822"))

;;*****************************************************************************

;; Composing email

(setq mail-default-headers "From: Robert Widhopf-Fenk <hack@robf.de>\n")

(vmpc-my-identities "me@company1.nil" "me@home.nil" "me@alterego.nil")

(require 'vm-pcrisis)

;;*****************************************************************************

;; A hook function to setup mail-composing buffers

(defun robf-vm-mail-mode-hook ()

  "Robert Widhopf-Fenks `vm-mail-mode-hook'."

  (interactive)

  (when (string-match "received" (buffer-name))

    (make-local-variable 'vm-confirm-quit)

    (setq vm-confirm-quit t))

  (setq fill-column 60

        comment-start "> "

        indent-line-function 'indent-relative-maybe)

  ;; mark lines longer than `fill-column' chars red 

  (add-to-list 'mail-font-lock-keywords

               (list (concat "^" (make-string fill-column ?.)

                             "\\(.+$\\)")

                     '(1 font-lock-warning-face t)))

  (ispell-change-dictionary "deutsch8")

  (font-lock-mode 1)

  (turn-on-auto-fill)

  (turn-on-filladapt-mode)

  (flyspell-mode 1)

;  (enriched-mode 1)

;  (auto-capitalize-mode)

;  (vm-mail-subject-prefix-cleanup)

  )

(add-hook 'vm-mail-mode-hook 'robf-vm-mail-mode-hook)

;; Do you like boxquotes? 

(require 'boxquote)

(defun boxquote-region-and-edit-title (s e)

  (interactive "r")

  (boxquote-region s e)

  (call-interactively 'boxquote-title))

;;*****************************************************************************

;; Sending email via SMTP.

;;

;; This is not done by VM, but by separate packages.  The standard package is

;; smtpmail.el and it should come with your Emacs. If you have more than one

;; email address and have to send them using different SMTP servers, the you

;; might want to take a look at esmtpmail.el a fork from smtpmail.el targeted

;; to deal with personal crisis support.

(require 'esmtpmail)

(setq send-mail-function 'esmtpmail-send-it

      esmtpmail-default-smtp-server "smtp.someprovider.com"

      ;; trace buffers help debugging problems 

      esmtpmail-debug-info t)

;; Select the SMTP server based on the From: header, i.e. the email address of

;; the author.  There are also other authentication  methods, see the docs.

(setq esmtpmail-send-it-by-alist 

      (list

       '("YourEmaiAddress1" "SMTPSERVER1"

         (vm-pop-login "pop:SMTPSERVER1:110:pass:YourEmailAddress:*"))

       '("YourEmaiAddress2" "SMTPSERVER2"

         (vm-after-pop "pop:SMTPSERVER2:110:pass:YourEmailAddress:*"))))

;;*****************************************************************************

;; Feed mail to a local queue if you are offline

(require 'feedmail)

(setq send-mail-function 'vm-mail-send-or-feed-it

      feedmail-enable-queue t

      feedmail-ask-before-queue nil

      feedmail-buffer-eating-function 'feedmail-buffer-to-smtpmail

      feedmail-queue-directory (expand-file-name "~/Mail/QUEUE"))

(define-key vm-mode-map "Qr"     'feedmail-run-the-queue)

(define-key vm-mode-map "Qc"     'vm-smtp-server-online-p)

(define-key vm-mode-map "Qw"     'feedmail-queue-reminder-medium)

(setq auto-mode-alist (cons '("\\.fqm$" . mail-mode) auto-mode-alist))

;; Check the queue on startup 

(when (and (> (car (feedmail-look-at-queue-directory

                    feedmail-queue-directory)) 0))

  (feedmail-queue-reminder-medium)

  (sit-for 2)

  (if (y-or-n-p "Send messages now? ")

      (feedmail-run-the-queue)))

;;*****************************************************************************

;; BBDB - the address book for Emacs

(require 'bbdb)

(require 'bbdb-autoloads)

(bbdb-initialize 'vm 'sendmail)

(bbdb-insinuate-vm)

;; create records for people you reply to

(add-hook 'vm-reply-hook 'bbdb-force-record-create)

;;*****************************************************************************

;; Now change some keyboard bindings 

(define-key vm-mode-map [(meta up)]    'vm-previous-unread-message)

(define-key vm-mode-map [(meta down)]  'vm-next-unread-message)

(define-key vm-mode-map "\C- "  'vm-scroll-backward)

(define-key vm-mode-map " "     'vm-scroll-forward)

(define-key vm-mode-map "c"     'vm-continue-what-message-other-frame)

(define-key vm-mode-map "C"     'vm-continue-postponed-message)

(define-key vm-mode-map "R"     'vm-reply-other-frame)

(define-key vm-mode-map "r"     'vm-reply-include-text-other-frame)

(define-key vm-mode-map "\C-R"  'vm-followup-other-frame)

(define-key vm-mode-map "\C-r"  'vm-followup-include-text-other-frame)

(define-key vm-mode-map "f"     'vm-forward-message-other-frame)

(define-key vm-mode-map "m"     'vm-toggle-mark)

(define-key vm-mode-map "d"     'vm-delete-message-action)

(define-key vm-mode-map "s"     'vm-virtual-save-message)

(define-key vm-mode-map "w"     'vm-save-message-preview)

(define-key vm-mode-map "lr"    'vm-delete-message-labels)

(define-key vm-mode-map "li"    'rf-vm-label-toggle-important)

(define-key vm-mode-map "ls"    'rf-vm-label-toggle-spam)

(define-key vm-mode-map "W"     'vm-save-message-sans-headers)

(define-key vm-mode-map "W"     (make-sparse-keymap))

(define-key vm-mode-map "WW"    'vm-apply-window-configuration)

(define-key vm-mode-map "WS"    'vm-save-window-configuration)

(define-key vm-mode-map "WD"    'vm-delete-window-configuration)

(define-key vm-mode-map "W?"    'vm-window-help)

(define-key vm-mode-map "x"     'vm-expunge-folder)

(define-key vm-mode-map "X"     'vm-expunge-pop-messages)

(define-key vm-mode-map "#"     nil)

(define-key vm-mode-map "/"      'bbdb)

(define-key vm-mode-map [(control return)] 'vm-edit-init-file)

(define-key vm-mode-map "S"     'vm-save-everything)

(define-key vm-mode-map "\C-a"  'vm-mime-auto-save-all-attachments)

(define-key vm-mode-map "VO"    'vm-virtual-omit-message)

(define-key vm-mode-map "VU"    'vm-virtual-update-folders)

(define-key vm-mode-map [(control s)] 'isearch-forward)

(define-key vm-mode-map "o"     'vm-switch-to-folder)

(define-key vm-summary-mode-map [(control up)] 'previous-line)

(define-key vm-summary-mode-map [(control down)] 'next-line)

(define-key vm-summary-mode-map [(control s)] 'vm-isearch-forward)

(define-key vm-mail-mode-map [tab] 'indent-relative)

(define-key vm-mail-mode-map [(control tab)] 'mail-interactive-insert-alias)

(define-key vm-mail-mode-map [return] 'newline-and-indent)

(define-key vm-mail-mode-map "\C-c\C-i" 'vm-serial-yank-mail)

(define-key vm-mail-mode-map "\C-c\C-o" 'vm-serial-expand-tokens)

(define-key vm-mail-mode-map [(control c) (control I)] 'vm-serial-insert-token)

(define-key vm-mail-mode-map [(control meta delete)] 'kill-this-buffer)

(define-key vm-mail-mode-map "\C-c\C-c" 'vm-mail-mode-comment-region)

(define-key vm-mail-mode-map "\C-c\C-d" 'vm-mail-mode-elide-reply-region)

(define-key vm-mail-mode-map "\C-c\C-k" 'vm-mail-mode-citation-clean-up)

(define-key vm-mail-mode-map "\C-c\C-a" 'vm-mime-attach-file)

(define-key vm-mail-mode-map "\C-c\C-b" 'boxquote-region-and-edit-title)

;;; Local Variables: ***

;;; mode:emacs-lisp ***

;;; End: ***

;;; .vm ends here