;;; -*- Mode: Emacs-Lisp -*- (setq vm-reply-subject-prefix "Re: " mail-signature-file "~/.signature" mail-signature t mail-archive-file-name (concat (getenv "HOME") "/Mail/.mrec") ;; hier ausgehende Mails archivieren signature-insert-at-eof t vm-display-xfaces t vm-keep-sent-messages 20 vm-display-using-mime t vm-auto-center-summary 1 vm-auto-decode-mime-messages t ;; vm-mime-8bit-text-transfer-encoding '8bit vm-auto-next-message t vm-auto-get-new-mail t vm-send-using-mime t vm-frame-per-composition nil vm-frame-per-edit nil vm-frame-per-folder nil ;;vm-mime-attachment-save-directory "~/t3/" ;; schneller als mit Lisp: vm-mime-base64-decoder-program "/local/GNU/bin/base64-decode" vm-mime-base64-enoder-program "/local/GNU/bin/base64-enode" ) ;;(setq mail-default-headers "Return-Receipt-To:\n") ;;(setq mail-default-headers ;; (concat "Return-Receipt-To: " user-mail-address ".inf.uni-jena.de \n")) ;; (concat "Return-Receipt-To: " "mrz.informatik.uni-jena.de \n")) ;; mailaliase lesen (if (file-exists-p "~/.vm.aliases") (load-file "~/.vm.aliases")) ;; Mailcrypt, für PGP-Mails: (require 'mailcrypt) (autoload 'mc-install-write-mode "mailcrypt" nil t) (autoload 'mc-install-read-mode "mailcrypt" nil t) (add-hook 'mail-mode-hook 'mc-install-write-mode) (setq mc-passwd-timeout 5000) (setq vm-summary-highlight-face font-lock-function-name-face vm-highlighted-header-face font-lock-keyword-face ; geht nicht unter XEmacs vm-highlighted-header-regexp "From:\\|Subject:\\|Sender:" vm-highlighted-header-face 'red ) (setq vm-inhibit-startup-message t vm-move-after-deleting t vm-mutable-windows t vm-mutable-frames nil vm-mail-window-percentage 70 vm-url-browser 'vm-mouse-send-url-to-netscape mail-default-reply-to "mrz@informatik.uni-jena.de" mail-self-blind nil ;; kein automatisches BCC ) (setq vm-preview-lines 10) (setq vm-print-command "a2ps-new -2gEmail -Psimplex") (setq vm-print-command-switches "-2g -Email -Psimplex") (setq-default vm-summary-show-threads t) (setq vm-use-toolbar nil) ; if nil -> keine Toolbar benutzen ;(setq vm-toolbar-orientation 'left) (setq vm-warp-mouse-to-new-frame t) (setq vm-mime-external-content-types-alist '( ;; ("text/html" "netscape") ("image/gif" "xv" "-8" "-perfect") ("image/jpeg" "xv" "-8" "-perfect") ("image/pjpeg" "xv" "-8" "-perfect") ("image/bmp" "xv" "-8" "-perfect") ("image/tiff" "xv" "-8" "-perfect") ("video/mpeg" "xanim") ("video" "xanim") ("application/x-unknown-content-type-MSImager.2" "xv") ;; pcx von WinNT ("application/postscript" "gv") ) ) ;; xemacs-21 has a newer VM: (if (string< "6.70" vm-version) (progn (add-to-list 'vm-auto-displayed-mime-content-type-exceptions "text/html") (add-to-list 'vm-mime-internal-content-type-exceptions "text/html") ) ) (setq vm-mime-default-face-charsets '("us-ascii" "iso-8859-1" "iso-8859-2" "Windows-1252")) ;; For working together with procmail ;; (procmail writes to ~/Mail/Spool/.spool): ;(setq vm-spool-files (list ; (list "~/Mail/INBOX" (getenv "MAIL") "~/Mail/INBOX.CRASH") ;; (list "~/Mail/INBOX" "~/mail-spool/inbox" "~/Mail/INBOX.CRASH") ; (list "~/Mail/test" "~/mail-spool/test.spool" "~/Mail/test.crash") ;)) ;; Problem: folder und deren spoolfiles müssen im gleichen Verzeichnis liegen :( ;; daher muß man jeden Folder extra in vm-spool-files eintragen! (setq vm-spool-directory "~/Mail/Spool") (setq vm-folder-directory "~/Mail/") (setq vm-primary-inbox "~/Mail/INBOX") (setq my-FOLDERS (list "test" "onelist.com" "mailer-errors" "FVWM-users" "Lutz" "Volkmar" "petidomo-thur.de" "www-ThurDe" "gutzmann" "SPAM" "fan-mjh" "MJH-Anträge-Fanclub" "clarissa-tcp")) ;;; first, set up special handling for the system mailbox (setq vm-spool-files (list ;; this should be a list of triples: ;; (list "~/Mail/INBOX" (getenv "MAIL") "~/Mail/INBOX.crash") ;; $MAIL darf nicht leer sein!!!!! )) ;; einfügen aller weiteren Spoolfiles/Folder: (let ( (L my-FOLDERS) (f nil) ) (while (not (null L)) (setq f (car L)) (setq vm-spool-files (append (list (list (concat "~/Mail/" f) (concat vm-spool-directory "/" f ".spool") (concat "~/Mail/" f ".crash") )) vm-spool-files)) (setq L (cdr L)) )) ;; now set the defaults for other folders: (setq vm-crash-box-suffix ".crash") (setq vm-spool-file-suffixes (list ".spool")) ;; smilies anzeigen: (require 'smiley) (add-hook 'vm-select-message-hook '(lambda () (smiley-region (point-min) (point-max)))) ; MT-Mime für VM ;(load-library "/local/GNU/lib/xemacs/site-lisp/tm/tm-vm.elc") ;;(setq tm-vm/automatic-mime-preview t ;; tm-vm/attach-to-popup-menus t ;; tm-vm/strict-mime t ;;) ;;(setq mime-editor/transfer-level 8 ;; mime-editor/split-message nil ;;) ;; for Mailcrypt (supports PGP for mails): (add-hook 'vm-mode-hook 'mc-install-read-mode) (add-hook 'vm-summary-mode-hook 'mc-install-read-mode) (add-hook 'vm-virtual-mode-hook 'mc-install-read-mode) (add-hook 'vm-mail-mode-hook 'mc-install-write-mode) ; Farben für VM ändern: ;(set-face-foreground 'message-cited-text "green3") ;(set-face-foreground 'message-header-contents "dodgerblue") ;(set-face-foreground 'message-headers "coral") ;(set-face-foreground 'message-highlighted-header-contents "dodgerblue") ;;(set-face-foreground 'bold "orangered") ;;(set-face-foreground 'bold "yellow") (set-face-foreground 'bold-italic "red") ;(shrink-window 10) ;(shrink-window-horizontally 20) ;;(load "tm-vm") ;; Antwortmail für MJH-Anträge: (defun my-mjh-antrag-reply () "Fügt die Standard-Antwortmail bzgl. MJH-Anträge in den Buffer ein." (interactive) (insert-file "~/Mail/MJH-antrag.regular-reply") (search-forward "\")") (eval-print-last-sexp) (previous-line 3) (kill-line 4) (goto-char (point-max)) (search-backward "rené scholz") (beginning-of-line) (kill-line 1) (goto-char (point-min)) (search-forward "moin") (beginning-of-line) ) (define-key vm-mail-mode-map '(f8) 'my-mjh-antrag-reply)