Imported vm-8.0.9-544

Imported vm-8.0.9-544
into srivasta@debian.org--lenny/vm--upstream--8.0



git-archimport-id: srivasta@debian.org--lenny/vm--upstream--8.0--patch-2

1 files changed, 250 insertions, 0 deletions

diff --git a/example.vm b/example.vm
new file mode 100644
index 0000000..c3df8a1
--- /dev/null
+++ b/example.vm
@@ -0,0 +1,250 @@
+;;; .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)
+
+;;*****************************************************************************
+;; Folders and spool files, this is where your mail comes from.
+
+;; 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"))
+       ))
+       
+;;*****************************************************************************
+;; 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, by 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