Mercurial > hg > xemacs-beta
comparison lisp/vm/vm-startup.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:18:39 +0200 |
| parents | a145efe76779 |
| children | fe104dbd9147 |
comparison
equal
deleted
inserted
replaced
| 107:523141596bda | 108:360340f9fd5f |
|---|---|
| 61 (expand-file-name vm-folder-directory)) | 61 (expand-file-name vm-folder-directory)) |
| 62 default-directory)) | 62 default-directory)) |
| 63 (inhibit-local-variables t) | 63 (inhibit-local-variables t) |
| 64 (enable-local-variables nil) | 64 (enable-local-variables nil) |
| 65 ;; for XEmacs/Mule | 65 ;; for XEmacs/Mule |
| 66 (overriding-file-coding-system 'no-conversion)) | 66 (coding-system-for-read 'no-conversion)) |
| 67 (message "Reading %s..." file) | 67 (message "Reading %s..." file) |
| 68 (prog1 (find-file-noselect file) | 68 (prog1 (find-file-noselect file) |
| 69 ;; update folder history | 69 ;; update folder history |
| 70 (let ((item (or folder vm-primary-inbox))) | 70 (let ((item (or folder vm-primary-inbox))) |
| 71 (if (not (equal item (car vm-folder-history))) | 71 (if (not (equal item (car vm-folder-history))) |
| 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.16. | 278 This is VM 6.19. |
| 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 |
| 336 saved to disk if it is modified. new messages are changed | 336 saved to disk if it is modified. new messages are changed |
| 337 to be flagged as just unread. | 337 to be flagged as just unread. |
| 338 x - exit VM with no change to the folder | 338 x - exit VM with no change to the folder |
| 339 | 339 |
| 340 M N - use marks; the next vm command will affect only marked messages | 340 M N - use marks; the next vm command will affect only marked messages |
| 341 if it makes sense for the command to do so | 341 if it makes sense for the command to do so. These commands |
| 342 apply and remove marks to messages. | |
| 342 | 343 |
| 343 M M - mark the current message | 344 M M - mark the current message |
| 344 M U - unmark the current message | 345 M U - unmark the current message |
| 345 M m - mark all messages | 346 M m - mark all messages |
| 346 M u - unmark all messages | 347 M u - unmark all messages |
| 371 V M - toggle whether this virtual folder's messages mirror the | 372 V M - toggle whether this virtual folder's messages mirror the |
| 372 underlying real messages' attributes. | 373 underlying real messages' attributes. |
| 373 V ? - help for virtual folder commands | 374 V ? - help for virtual folder commands |
| 374 | 375 |
| 375 C-_ - undo, special undo that retracts the most recent | 376 C-_ - undo, special undo that retracts the most recent |
| 376 changes in message attributes and labels. Expunges | 377 changes in message attributes and labels. Expunges, |
| 377 message edits, and saves cannot be undone. C-x u is | 378 message edits, and saves cannot be undone. C-x u is |
| 378 also bound to this command. | 379 also bound to this command. |
| 379 | 380 |
| 380 a - set message attributes | 381 a - set message attributes |
| 381 | 382 |