diff options
| author | Karl Heuer | 1996-05-21 17:26:31 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-05-21 17:26:31 +0000 |
| commit | 2b70d21e17b371e69611c322579718b66eb73b5c (patch) | |
| tree | 3219b2b1e6f0ce46daacb13aa6a44e690c1491d8 /lisp | |
| parent | 2a42e8f6ac76be9765a5a6de69ec8489554c4eaa (diff) | |
| download | emacs-2b70d21e17b371e69611c322579718b66eb73b5c.tar.gz emacs-2b70d21e17b371e69611c322579718b66eb73b5c.zip | |
(mh-version): Use mh-e-RCS-id rather than mh-e-version
and mh-e-time-stamp.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mh-e.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 134d5d87cb5..0a32ca2768d 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el | |||
| @@ -60,7 +60,7 @@ | |||
| 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
| 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
| 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu | 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu |
| 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.12 1996/01/20 02:47:33 erik Exp kwzh $") | 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.13 1996/01/25 01:02:59 kwzh Exp kwzh $") |
| 64 | 64 | ||
| 65 | ;;; Code: | 65 | ;;; Code: |
| 66 | 66 | ||
| @@ -519,7 +519,7 @@ provided, then prompt for the message sequence." | |||
| 519 | (mh-find-progs) | 519 | (mh-find-progs) |
| 520 | (set-buffer (get-buffer-create mh-temp-buffer)) | 520 | (set-buffer (get-buffer-create mh-temp-buffer)) |
| 521 | (erase-buffer) | 521 | (erase-buffer) |
| 522 | (insert " mh-e info:\n\nversion: " mh-e-version "\n" mh-e-time-stamp | 522 | (insert " mh-e info:\n\nversion: " mh-e-RCS-id |
| 523 | "\nEmacs: " emacs-version " on " (symbol-name system-type) " ") | 523 | "\nEmacs: " emacs-version " on " (symbol-name system-type) " ") |
| 524 | (condition-case () | 524 | (condition-case () |
| 525 | (call-process "uname" nil t nil "-a") | 525 | (call-process "uname" nil t nil "-a") |