Mercurial > emacs
annotate lisp/forms-pass.el @ 22416:a517da228cb9
(uce-message-text): Change the text of message that is sent.
(uce-reply-to-uce): Do not assume all Received lines
are on top of message without headers like `From' or `To'.
(uce-reply-to-uce): Parse Received lines better.
(uce-mail-reader): New user option.
(uce-reply-to uce): Add support for Gnus. User is supposed to set
uce-mail-reader to `gnus' if using Gnus to read mail. The default is
to assume Rmail. There's no magic to determine what mail reader is
currently active, so it is not possible to mix using uce.el with Rmail
and Gnus.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Jun 1998 23:40:56 +0000 |
| parents | 84acc3adcd63 |
| children | 67b464da13ec |
| rev | line source |
|---|---|
| 13337 | 1 ;;; forms-pass.el --- passwd file demo for forms-mode |
| 2 | |
| 306 | 3 ;; This demo visits your passwd file. |
| 275 | 4 |
| 306 | 5 ;; use yp if present |
| 6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd")) | |
| 7 (setq forms-file "/etc/passwd")) | |
| 8 | |
| 275 | 9 (setq forms-read-only t) ; to make sure |
| 10 (setq forms-field-sep ":") | |
| 11 (setq forms-number-of-fields 7) | |
| 306 | 12 |
| 275 | 13 (setq forms-format-list |
| 306 | 14 (list |
| 15 "====== Visiting " forms-file " ======\n\n" | |
| 275 | 16 "User : " 1 |
| 17 " Uid: " 3 | |
| 18 " Gid: " 4 | |
| 19 "\n\n" | |
| 20 "Name : " 5 | |
| 21 "\n\n" | |
| 22 "Home : " 6 | |
| 23 "\n\n" | |
| 24 "Shell: " 7 | |
| 25 "\n")) |