Mercurial > emacs
comparison lisp/mail/mh-utils.el @ 34599:9266023b321c
(mh-find-path): Set read-mail-command.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 15 Dec 2000 12:32:04 +0000 |
| parents | d810d00ddd7c |
| children | 3dab3c3ae5ee |
comparison
equal
deleted
inserted
replaced
| 34598:afd90be3ed75 | 34599:9266023b321c |
|---|---|
| 1 ;;; mh-utils.el --- mh-e code needed for both sending and reading | 1 ;;; mh-utils.el --- mh-e code needed for both sending and reading |
| 2 ;; Time-stamp: <95/10/22 17:58:16 gildea> | 2 ;; Time-stamp: <95/10/22 17:58:16 gildea> |
| 3 | 3 |
| 4 ;; Copyright (C) 1993, 1995, 1997 Free Software Foundation, Inc. | 4 ;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; This file is part of mh-e, part of GNU Emacs. | 6 ;; This file is part of mh-e, part of GNU Emacs. |
| 7 | 7 |
| 8 ;; GNU Emacs is free software; you can redistribute it and/or modify | 8 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 9 ;; it under the terms of the GNU General Public License as published by | 9 ;; it under the terms of the GNU General Public License as published by |
| 540 (let ((start (match-beginning 1))) | 540 (let ((start (match-beginning 1))) |
| 541 (end-of-line) | 541 (end-of-line) |
| 542 (buffer-substring start (point))))))) | 542 (buffer-substring start (point))))))) |
| 543 | 543 |
| 544 (defvar mail-user-agent) | 544 (defvar mail-user-agent) |
| 545 (defvar read-mail-command) | |
| 545 | 546 |
| 546 (defvar mh-find-path-run nil | 547 (defvar mh-find-path-run nil |
| 547 "Non-nil if `mh-find-path' has been run already.") | 548 "Non-nil if `mh-find-path' has been run already.") |
| 548 | 549 |
| 549 (defun mh-find-path () | 550 (defun mh-find-path () |
| 552 ;; From profile file, set mh-user-path, mh-draft-folder, | 553 ;; From profile file, set mh-user-path, mh-draft-folder, |
| 553 ;; mh-unseen-seq, mh-previous-seq, mh-inbox. | 554 ;; mh-unseen-seq, mh-previous-seq, mh-inbox. |
| 554 (mh-find-progs) | 555 (mh-find-progs) |
| 555 (unless mh-find-path-run | 556 (unless mh-find-path-run |
| 556 (setq mh-find-path-run t) | 557 (setq mh-find-path-run t) |
| 558 (setq read-mail-command 'mh-rmail) | |
| 557 (setq mail-user-agent 'mh-e-user-agent)) | 559 (setq mail-user-agent 'mh-e-user-agent)) |
| 558 (save-excursion | 560 (save-excursion |
| 559 ;; Be sure profile is fully expanded before switching buffers | 561 ;; Be sure profile is fully expanded before switching buffers |
| 560 (let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile")))) | 562 (let ((profile (expand-file-name (or (getenv "MH") "~/.mh_profile")))) |
| 561 (set-buffer (get-buffer-create mh-temp-buffer)) | 563 (set-buffer (get-buffer-create mh-temp-buffer)) |