[Mew-dist 13674] Re: b47

[Kenichi Niioka ( 新岡賢一 )]

新岡です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13637] b47
Date: Thu, 13 Jul 2000 22:08:17 +0900

> b47 をリリースします。

Firstname.Lastname at example.com というメイルアドレスの場合、
"Message-ID: " が、
<20000713.220720.74724510.Firstname.Lastname at example.com> と
なります。
長くなり過ぎてちょっといやなので、"mew-msgid-user" を定義して使え
るようにしてみました。

(setq mew-config-alist
      '(("default"
	 ("user" . "Firstname.Lastname")
	 ("name" . "Firstname Lastname")
	 ("mail-domain" . "mydomain.co.jp")
	 ("msgid-domain" . "mydomain.co.jp")
	 ("msgid-user" . "myname")
	 ("smtp-helo-domain" . "localhost")
	 ("smtp-server" . "localhost")
	 ("pop-server" . "mydomain.co.jp")
	 ("pop-user" . "popuser)
	 ("pop-size" . 0)
	 )))

という指定をします。
"msgid-user" の指定がない場合には、"user" の指定を使うようにしたつ
もりです。

--
新岡賢一(Kenichi Niioka)
ken at example.com

-------------- next part --------------
*** mew-config.el.orig	Sat Jul 15 16:55:58 2000
--- mew-config.el	Sat Jul 15 16:56:53 2000
***************
*** 169,178 ****
  (defun mew-msgid-domain (&optional case)
    (mew-cfent-value case "msgid-domain" (mew-mail-domain case)))
  
  (defun mew-message-id (&optional case)
    (let* ((random (format "%08d" (mew-random)))
  	 (domain (mew-msgid-domain case))
! 	 (user (mew-user case))
  	 time s)
      (if (fboundp 'format-time-string)
  	(setq time (format-time-string "%Y%m%d.%H%M%S"))
--- 169,183 ----
  (defun mew-msgid-domain (&optional case)
    (mew-cfent-value case "msgid-domain" (mew-mail-domain case)))
  
+ (defun mew-msgid-user (&optional case)
+   (mew-cfent-value case "msgid-user" mew-msgid-user))
+ 
  (defun mew-message-id (&optional case)
    (let* ((random (format "%08d" (mew-random)))
  	 (domain (mew-msgid-domain case))
! 	 (user (if (eq (mew-msgid-user case) nil)
! 		   (mew-user case)
! 		 (mew-msgid-user case)))
  	 time s)
      (if (fboundp 'format-time-string)
  	(setq time (format-time-string "%Y%m%d.%H%M%S"))

*** mew-vars.el.orig	Sat Jul 15 12:56:09 2000
--- mew-vars.el	Sat Jul 15 12:56:24 2000
***************
*** 307,312 ****
--- 307,313 ----
  
  (defvar mew-smtp-timeout-time 4)
  (defvar mew-smtp-msgid-domain nil)
+ (defvar mew-msgid-user nil)
  
  (defvar mew-smtp-helo-domain "localhost")
  
*** mew-vars2.el.orig	Thu Jul  6 14:13:52 2000
--- mew-vars2.el	Tue Jul 18 16:14:44 2000
***************
*** 754,760 ****
    - <value> is a string.
  
  Currently, the following keys are supported: 
! \"user\", \"name\",\"mail-domain\", \"msgid-domain\", 
  \"cc\", \"fcc\", \"dcc\", \"reply-to\",
  \"organization\", \"header-alist\", 
  \"smtp-server\", \"smtp-port\", \"smtp-ssh-server\",
--- 754,760 ----
    - <value> is a string.
  
  Currently, the following keys are supported: 
! \"user\", \"name\",\"mail-domain\", \"msgid-domain\", \"msgid-user\", 
  \"cc\", \"fcc\", \"dcc\", \"reply-to\",
  \"organization\", \"header-alist\", 
  \"smtp-server\", \"smtp-port\", \"smtp-ssh-server\",