[Mew-dist 11853] ポート番号の指定

[nara at example.com]

mew-smtp-server ではポート番号が指定できないようですが、ポート番号を指
定したいのですが。

いかがでしょうか。

--nara

-------------- next part --------------
*** mew-smtp.el	1999-12-15 11:04:36+09	1.1
--- mew-smtp.el	1999-12-15 02:05:32+09
***************
*** 26,31 ****
--- 26,32 ----
  (defvar mew-smtp-messages nil)
  (defvar mew-smtp-error nil)
  (defvar mew-smtp-lock nil)
+ (defvar mew-smtp-port "smtp")
  
  (defvar mew-smtp-fsm
    '(("greeting" "220" "helo")
***************
*** 52,58 ****
  
  (defun mew-smtp-open (server)
    (setq mew-smtp-error nil)
!   (let ((port "smtp") pro tm)
      (condition-case emsg
  	(progn
  	  (setq tm (mew-timer mew-smtp-timeout-time 'mew-smtp-timeout))
--- 53,59 ----
  
  (defun mew-smtp-open (server)
    (setq mew-smtp-error nil)
!   (let ((port mew-smtp-port) pro tm)
      (condition-case emsg
  	(progn
  	  (setq tm (mew-timer mew-smtp-timeout-time 'mew-smtp-timeout))