Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-startup.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents cca96a509cfe
children 869e1851236b
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
169 (if full-startup 169 (if full-startup
170 ;; save blurb so we can repeat it later as necessary. 170 ;; save blurb so we can repeat it later as necessary.
171 (setq totals-blurb (vm-emit-totals-blurb))) 171 (setq totals-blurb (vm-emit-totals-blurb)))
172 172
173 (vm-thoughtfully-select-message) 173 (vm-thoughtfully-select-message)
174 (if vm-message-list 174 (vm-update-summary-and-mode-line)
175 (vm-preview-current-message)
176 (vm-update-summary-and-mode-line))
177 ;; need to do this after any frame creation because the 175 ;; need to do this after any frame creation because the
178 ;; toolbar sets frame-specific height and width specifiers. 176 ;; toolbar sets frame-specific height and width specifiers.
179 (and (vm-toolbar-support-possible-p) vm-use-toolbar 177 (and (vm-toolbar-support-possible-p) vm-use-toolbar
180 (progn 178 (progn
181 (vm-toolbar-install-toolbar) 179 (vm-toolbar-install-toolbar)
206 (list (or this-command 'vm) 'startup)) 204 (list (or this-command 'vm) 'startup))
207 (save-excursion 205 (save-excursion
208 (switch-to-buffer (or vm-summary-buffer 206 (switch-to-buffer (or vm-summary-buffer
209 vm-presentation-buffer 207 vm-presentation-buffer
210 (current-buffer))))))) 208 (current-buffer)))))))
209
210 (if vm-message-list
211 (vm-preview-current-message))
211 212
212 (run-hooks 'vm-visit-folder-hook) 213 (run-hooks 'vm-visit-folder-hook)
213 214
214 (if full-startup 215 (if full-startup
215 (message totals-blurb)) 216 (message totals-blurb))
273 (put 'vm-mode 'mode-class 'special) 274 (put 'vm-mode 'mode-class 'special)
274 275
275 (defun vm-mode (&optional read-only) 276 (defun vm-mode (&optional read-only)
276 "Major mode for reading mail. 277 "Major mode for reading mail.
277 278
278 This is VM 6.24. 279 This is VM 6.26.
279 280
280 Commands: 281 Commands:
281 h - summarize folder contents 282 h - summarize folder contents
282 C-t - toggle threads display 283 C-t - toggle threads display
283 284
1052 )))) 1053 ))))
1053 1054
1054 (defun vm-session-initialization () 1055 (defun vm-session-initialization ()
1055 (vm-note-emacs-version) 1056 (vm-note-emacs-version)
1056 (vm-check-emacs-version) 1057 (vm-check-emacs-version)
1057 (vm-set-debug-flags) 1058 ;(vm-set-debug-flags)
1058 ;; If this is the first time VM has been run in this Emacs session, 1059 ;; If this is the first time VM has been run in this Emacs session,
1059 ;; do some necessary preparations. 1060 ;; do some necessary preparations.
1060 (if (or (not (boundp 'vm-session-beginning)) 1061 (if (or (not (boundp 'vm-session-beginning))
1061 vm-session-beginning) 1062 vm-session-beginning)
1062 (progn 1063 (progn