arguments of mail-source-fetch-with-program

arguments of mail-source-fetch-with-program

[Tatsuya Ichikawa]

[-- Attachment #1: Type: text/plain, Size: 363 bytes --]


  I always use movemail (with pop support).But movemail's arguments with
  POP is following.(movemail is distributed with Emacs.)

     movemail [options] inbox crashbox [POP PASSWD]

  But current mail-source-fetch-with-program cannot send password
  information to movemail external program.

  So I create following patch.

  Is this patch has any problem??


[-- Attachment #2: mail-source.el.diff --]
[-- Type: application/octet-stream, Size: 1368 bytes --]

*** mail-source.el.orig	Wed Feb 03 10:23:52 1999
--- mail-source.el	Wed Feb 03 10:24:28 1999
***************
*** 278,286 ****
  	(setq mail-source-read-passwd 'ange-ftp-read-passwd)))
      (funcall mail-source-read-passwd prompt)))
  
! (defun mail-source-fetch-with-program (program args to)
    (zerop (apply 'call-process program nil nil nil
! 		(append (split-string args) (list to)))))
  
  ;;;
  ;;; Different fetchers
--- 278,286 ----
  	(setq mail-source-read-passwd 'ange-ftp-read-passwd)))
      (funcall mail-source-read-passwd prompt)))
  
! (defun mail-source-fetch-with-program (program args to &optional arg)
    (zerop (apply 'call-process program nil nil nil
! 		(append (split-string args) (list to arg)))))
  
  ;;;
  ;;; Different fetchers
***************
*** 325,331 ****
  	    (when (listp args)
  	      (setq args (eval args)))
  	    (mail-source-fetch-with-program
! 	     program args mail-source-crash-box))
  	   (function
  	    (funcall function mail-source-crash-box))
  	   ;; The default is to use pop3.el.
--- 325,331 ----
  	    (when (listp args)
  	      (setq args (eval args)))
  	    (mail-source-fetch-with-program
! 	     program args mail-source-crash-box password))
  	   (function
  	    (funcall function mail-source-crash-box))
  	   ;; The default is to use pop3.el.

-- 
  Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>