Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-startup.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 2d532a89d707
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
156 (if folder '(folder) '(primary-folder folder)))) 156 (if folder '(folder) '(primary-folder folder))))
157 157
158 ;; raise frame if requested and apply startup window 158 ;; raise frame if requested and apply startup window
159 ;; configuration. 159 ;; configuration.
160 (if full-startup 160 (if full-startup
161 (progn 161 (let ((buffer-to-display (or vm-summary-buffer
162 vm-presentation-buffer
163 (current-buffer))))
164 (vm-display buffer-to-display buffer-to-display
165 (list this-command)
166 (list (or this-command 'vm) 'startup))
162 (if vm-raise-frame-at-startup 167 (if vm-raise-frame-at-startup
163 (vm-raise-frame)) 168 (vm-raise-frame))))
164 (vm-display nil nil (list this-command)
165 (list (or this-command 'vm) 'startup))))
166 169
167 ;; say this NOW, before the non-previewers read a message, 170 ;; say this NOW, before the non-previewers read a message,
168 ;; alter the new message count and confuse themselves. 171 ;; alter the new message count and confuse themselves.
169 (if full-startup 172 (if full-startup
170 ;; save blurb so we can repeat it later as necessary. 173 ;; save blurb so we can repeat it later as necessary.
275 (put 'vm-mode 'mode-class 'special) 278 (put 'vm-mode 'mode-class 'special)
276 279
277 (defun vm-mode (&optional read-only) 280 (defun vm-mode (&optional read-only)
278 "Major mode for reading mail. 281 "Major mode for reading mail.
279 282
280 This is VM 6.33. 283 This is VM 6.34.
281 284
282 Commands: 285 Commands:
283 h - summarize folder contents 286 h - summarize folder contents
284 C-t - toggle threads display 287 C-t - toggle threads display
285 288