/[cmucl]/src/hemlock/mh.lisp
ViewVC logotype

Diff of /src/hemlock/mh.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.1.8 by chiles, Fri Jul 26 11:11:57 1991 UTC revision 1.2.1.9 by ram, Wed Sep 4 14:18:56 1991 UTC
# Line 209  Line 209 
209  (defhvar "MH Scan Line Form"  (defhvar "MH Scan Line Form"
210    "This is a pathname of a file containing an MH format expression for headers    "This is a pathname of a file containing an MH format expression for headers
211     lines."     lines."
212    :value (pathname "/usr/misc/.cmucl/lib/mh-scan"))    :value (pathname "library:mh-scan"))
213    
214  ;;; MESSAGE-HEADERS-TO-REGION uses the MH "scan" utility output headers into  ;;; MESSAGE-HEADERS-TO-REGION uses the MH "scan" utility output headers into
215  ;;; buffer for folder and msgs.  ;;; buffer for folder and msgs.
# Line 222  Line 222 
222      (with-output-to-mark (*standard-output* (region-end region) :full)      (with-output-to-mark (*standard-output* (region-end region) :full)
223        (mh "scan"        (mh "scan"
224            `(,folder ,@msgs            `(,folder ,@msgs
225              "-form" ,(namestring (value mh-scan-line-form))              "-form" ,(namestring (truename (value mh-scan-line-form)))
226              "-width" ,(number-string (or width (value fill-column)))              "-width" ,(number-string (or width (value fill-column)))
227              "-noheader")))              "-noheader")))
228      region))      region))
# Line 1688  Line 1688 
1688  (defhvar "Authenticate Incorporation"  (defhvar "Authenticate Incorporation"
1689    "When this is set (the default), incorporating new mail prompts for a    "When this is set (the default), incorporating new mail prompts for a
1690     password to access a remote mail drop."     password to access a remote mail drop."
1691    :value t)    :value nil)
1692  (defhvar "Authentication User Name"  (defhvar "Authentication User Name"
1693    "When incorporating new mail accesses a remote mail drop, this is the user    "When incorporating new mail accesses a remote mail drop, this is the user
1694     name supplied for authentication on the remote machine.  If this is nil     name supplied for authentication on the remote machine.  If this is nil
# Line 1718  Line 1718 
1718    (unless (new-mail-p) (editor-error "No new mail."))    (unless (new-mail-p) (editor-error "No new mail."))
1719    (let ((args `(,(coerce-folder-name (value new-mail-folder))    (let ((args `(,(coerce-folder-name (value new-mail-folder))
1720                  ,@(if stream nil '("-silent"))                  ,@(if stream nil '("-silent"))
1721                  "-form" ,(namestring (value mh-scan-line-form))                  "-form" ,(namestring (truename (value mh-scan-line-form)))
1722                  "-width" ,(number-string (value fill-column)))))                  "-width" ,(number-string (value fill-column)))))
1723      (cond ((value authenticate-incorporation)      (cond ((value authenticate-incorporation)
1724             (let ((password (get-password)))             (let ((password (get-password)))
# Line 2768  Line 2768 
2768     and this does not return; otherwise, nil and the error output from the MH     and this does not return; otherwise, nil and the error output from the MH
2769     utility are returned."     utility are returned."
2770    (fresh-line)    (fresh-line)
2771    (let* ((utility (namestring (truename    (let* ((utility
2772                                 (merge-pathnames utility            (namestring
2773                                                  (value mh-utility-pathname)))))             (or (probe-file (merge-pathnames utility
2774                                                (value mh-utility-pathname)))
2775                   utility)))
2776           (proc (ext:run-program           (proc (ext:run-program
2777                  utility args                  utility args
2778                  :output *standard-output*                  :output *standard-output*

Legend:
Removed from v.1.2.1.8  
changed lines
  Added in v.1.2.1.9

  ViewVC Help
Powered by ViewVC 1.1.5