1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
;-*-emacs-lisp-*-
(provide 'vm-init)
;; Autoloads as per README
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
;; Fixes for Debian
(setq vm-pop-md5-program "md5sum")
(setq vm-toolbar-pixmap-directory "/usr/share/emacs/site-lisp/etc")
(setq load-path (nconc load-path (list "=F")))
;; This is no longer needed.
;;(setq file-coding-system nil) ;; this turns out undefined otherwise.
;; Useful stuff
; From: kyle_jones@wonderworks.com (Kyle Jones)
; Sender: info-vm-request@uunet.uu.net
; To: carney@gvc.dec.com
; Cc: info-vm@uunet.uu.net
; Subject: filename completion in FCC:
; Date: Sun, 6 Aug 1995 13:24:08 -0400
;
; Stephen Carney writes:
; > Is it possible to have filename completion in the FCC field of
; > the message header?
;
; This might be worth adding to VM.
(require 'comint)
(defun mail-mode-smart-tab ()
(interactive)
(if (save-excursion
(beginning-of-line)
(looking-at "FCC: "))
(comint-dynamic-complete)
(if (and (save-excursion
(search-forward
(concat "\n" mail-header-separator "\n")
nil t))
(featurep 'bbdb))
(bbdb-complete-name)
(tab-to-tab-stop))))
(add-hook 'mail-setup-hook
'(lambda () (local-set-key "\t" 'mail-mode-smart-tab)))
|
