From b981c52ce4a5819e3b92ae902d6f4cb6217844d7 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Tue, 10 Jan 2006 06:44:16 +0000 Subject: [PATCH] (mh-variant-mu-mh-info, mh-variant-nmh-info): Applied patch from Satyaki from SF #1016027. --- lisp/mh-e/ChangeLog | 3 +++ lisp/mh-e/mh-init.el | 52 +++++++++++++++----------------------------- 2 files changed, 21 insertions(+), 34 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 99aa9b5a98c..786fa837212 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,5 +1,8 @@ 2006-01-09 Bill Wohler + * mh-init.el (mh-variant-mu-mh-info, mh-variant-nmh-info): Applied + patch from Satyaki from SF #1016027. + * mh-e.el (mh-rescan-folder): Try to keep cursor at current message, even if cur sequence is no longer present (closes SF #1207247). diff --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el index 0e642862fe8..f784a1d9d2c 100644 --- a/lisp/mh-e/mh-init.el +++ b/lisp/mh-e/mh-init.el @@ -239,23 +239,15 @@ This assumes that a temporary buffer is setup." (goto-char (point-min)) (when (search-forward-regexp "mhparam (\\(GNU [Mm]ailutils \\S +\\))" nil t) - (let ((version (match-string 1))) - (erase-buffer) - (call-process mhparam nil '(t nil) nil "libdir" "etcdir") - (goto-char (point-min)) - (when (search-forward-regexp "^libdir:\\s-\\(\\S-+\\)\\s-*$" nil t) - (let ((libdir (match-string 1))) - (goto-char (point-min)) - (when (search-forward-regexp - "^etcdir:\\s-\\(\\S-+\\)\\s-*$" nil t) - (let ((etcdir (match-string 1)) - (flists (file-exists-p (expand-file-name "flists" dir)))) - `(,version - (variant mu-mh) - (mh-lib-progs ,libdir) - (mh-lib ,etcdir) - (mh-progs ,dir) - (flists ,flists))))))))))) + (let ((version (match-string 1)) + (mh-progs dir)) + `(,version + (variant mu-mh) + (mh-lib-progs ,(mh-profile-component "libdir")) + (mh-lib ,(mh-profile-component "etcdir")) + (mh-progs ,dir) + (flists ,(file-exists-p + (expand-file-name "flists" dir))))))))) (defun mh-variant-nmh-info (dir) "Return info for nmh variant in DIR assuming a temporary buffer is setup." @@ -267,23 +259,15 @@ This assumes that a temporary buffer is setup." (call-process mhparam nil '(t nil) nil "-version") (goto-char (point-min)) (when (search-forward-regexp "mhparam -- nmh-\\(\\S +\\)" nil t) - (let ((version (format "nmh %s" (match-string 1)))) - (erase-buffer) - (call-process mhparam nil '(t nil) nil "libdir" "etcdir") - (goto-char (point-min)) - (when (search-forward-regexp "^libdir:\\s-\\(\\S-+\\)\\s-*$" nil t) - (let ((libdir (match-string 1))) - (goto-char (point-min)) - (when (search-forward-regexp - "^etcdir:\\s-\\(\\S-+\\)\\s-*$" nil t) - (let ((etcdir (match-string 1)) - (flists (file-exists-p (expand-file-name "flists" dir)))) - `(,version - (variant nmh) - (mh-lib-progs ,libdir) - (mh-lib ,etcdir) - (mh-progs ,dir) - (flists ,flists))))))))))) + (let ((version (format "nmh %s" (match-string 1))) + (mh-progs dir)) + `(,version + (variant nmh) + (mh-lib-progs ,(mh-profile-component "libdir")) + (mh-lib ,(mh-profile-component "etcdir")) + (mh-progs ,dir) + (flists ,(file-exists-p + (expand-file-name "flists" dir))))))))) (defun mh-variant-info (dir) "Return MH variant found in DIR, or nil if none present." -- 2.39.2