Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-startup.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children 1370575f1259
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
23 to the value of vm-primary-inbox. The folder buffer is put into VM 23 to the value of vm-primary-inbox. The folder buffer is put into VM
24 mode, a major mode for reading mail. 24 mode, a major mode for reading mail.
25 25
26 Prefix arg or optional second arg READ-ONLY non-nil indicates 26 Prefix arg or optional second arg READ-ONLY non-nil indicates
27 that the folder should be considered read only. No attribute 27 that the folder should be considered read only. No attribute
28 changes, messages additions or deletions will be allowed in the 28 changes, message additions or deletions will be allowed in the
29 visited folder. 29 visited folder.
30 30
31 Visiting the primary inbox causes any contents of the system mailbox to 31 Visiting the primary inbox causes any contents of the system mailbox to
32 be moved and appended to the resulting buffer. 32 be moved and appended to the resulting buffer.
33 33
79 ;; make it so by encoding all the text, then setting 79 ;; make it so by encoding all the text, then setting
80 ;; the file coding system and decoding it. 80 ;; the file coding system and decoding it.
81 ;; This is only possible if a file is visited and then vm-mode 81 ;; This is only possible if a file is visited and then vm-mode
82 ;; is run on it afterwards. 82 ;; is run on it afterwards.
83 (defvar buffer-file-coding-system) 83 (defvar buffer-file-coding-system)
84 (if (and (vm-xemacs-mule-p) 84 (if (and vm-xemacs-mule-p
85 (not (eq (get-coding-system buffer-file-coding-system) 85 (not (eq (get-coding-system buffer-file-coding-system)
86 (get-coding-system 'no-conversion-unix))) 86 (get-coding-system 'no-conversion-unix)))
87 (not (eq (get-coding-system buffer-file-coding-system) 87 (not (eq (get-coding-system buffer-file-coding-system)
88 (get-coding-system 'no-conversion-dos))) 88 (get-coding-system 'no-conversion-dos)))
89 (not (eq (get-coding-system buffer-file-coding-system) 89 (not (eq (get-coding-system buffer-file-coding-system)
273 (put 'vm-mode 'mode-class 'special) 273 (put 'vm-mode 'mode-class 'special)
274 274
275 (defun vm-mode (&optional read-only) 275 (defun vm-mode (&optional read-only)
276 "Major mode for reading mail. 276 "Major mode for reading mail.
277 277
278 This is VM 6.23. 278 This is VM 6.24.
279 279
280 Commands: 280 Commands:
281 h - summarize folder contents 281 h - summarize folder contents
282 C-t - toggle threads display 282 C-t - toggle threads display
283 283
1024 (load vm-init-file (not interactive) (not interactive) t)) 1024 (load vm-init-file (not interactive) (not interactive) t))
1025 (setq vm-init-file-loaded t) 1025 (setq vm-init-file-loaded t)
1026 (vm-display nil nil '(vm-load-init-file) '(vm-load-init-file))) 1026 (vm-display nil nil '(vm-load-init-file) '(vm-load-init-file)))
1027 1027
1028 (defun vm-check-emacs-version () 1028 (defun vm-check-emacs-version ()
1029 (cond ((and (vm-xemacs-p) 1029 (cond ((and vm-xemacs-p
1030 (or (< emacs-major-version 19) 1030 (or (< emacs-major-version 19)
1031 (and (= emacs-major-version 19) 1031 (and (= emacs-major-version 19)
1032 (< emacs-minor-version 14)))) 1032 (< emacs-minor-version 14))))
1033 (error "VM %s must be run on XEmacs 19.14 or a later version." 1033 (error "VM %s must be run on XEmacs 19.14 or a later version."
1034 vm-version)) 1034 vm-version))
1035 ((and (vm-fsfemacs-19-p) 1035 ((and vm-fsfemacs-19-p
1036 (or (< emacs-major-version 19) 1036 (or (< emacs-major-version 19)
1037 (and (= emacs-major-version 19) 1037 (and (= emacs-major-version 19)
1038 (< emacs-minor-version 34)))) 1038 (< emacs-minor-version 34))))
1039 (error "VM %s must be run on Emacs 19.34 or a later version." 1039 (error "VM %s must be run on Emacs 19.34 or a later version."
1040 vm-version)))) 1040 vm-version))))
1050 void-function 1050 void-function
1051 void-variable 1051 void-variable
1052 )))) 1052 ))))
1053 1053
1054 (defun vm-session-initialization () 1054 (defun vm-session-initialization ()
1055 (vm-note-emacs-version)
1055 (vm-check-emacs-version) 1056 (vm-check-emacs-version)
1056 (vm-set-debug-flags) 1057 (vm-set-debug-flags)
1057 ;; If this is the first time VM has been run in this Emacs session, 1058 ;; If this is the first time VM has been run in this Emacs session,
1058 ;; do some necessary preparations. 1059 ;; do some necessary preparations.
1059 (if (or (not (boundp 'vm-session-beginning)) 1060 (if (or (not (boundp 'vm-session-beginning))