[Mew-Win32 00109] I can't send mail
Yoshitaka Sainomoto
sainmt at example.com
1998年 1月 21日 (水) 13:55:50 JST
$B$_$J$5$^$O$8$a$^$7$F!#(B
$B$5$$$N$b$H$H?=$7$^$9!#(B
Meadow $B=i?4<T$N;d$K$h$-%"%I%P%$%9$rD:$-$?$/(Bmail $B$r=q$+$;$FD:$-$^$7$?!#(B
#$B%a!<%j%s%0%j%9%H$b=i?4<T$G$9!#(B
Unix $BHG(B Mew 1.92.4 + im-76$B$+$i(B
Meadow 0.50b1 + Mew 1.93b8 + im-83$B$X$N0\9T$r9M$($F$$$^$9!#(B
$B%H%i%V%k$NFbMF$O(B
SMTP $B7PM3$G(Bmail$B$,Aw?.$G$-$J$$(B
$B$H$$$&$3$H$G$9!#(B
$B3NG'$7$?$3$H(B
1,im$B$NF0:n(B
$B%3%^%s%I%i%$%s(B(DOS$BAk(B)$B$h$j(B
perl imls
perl imget
perl imput sainmt at example.com
$B$J$I$H$d$k$H at example.com>o$KF0:n$7(B,imput$B$K4X$7$F$b$A$c$s$HAw?.$G$-$^$9!#(B
2,mew $B$G$NF0:n(B
$BAw?.0J30(B($B<u?.Ey(B)$B$O at example.com>o$KF0:n$7$F$$$k(B($B$h$&$G$9(B)$B!#(B
$B$5$i$KAw?.$K4X$7$F$b(Berror message $BEy$O$J$K$b$G$:(B,$B at example.com>o$KAw$C$F$k$h$&$K8+$($^$9!#(B
$B$G$b$$$D$^$G$?$C$F$bFO$-$^$;$s!#(B
#Mew$B$NLdBj$8$c$J$$$N$+$b(B??
$B$I$&$bNI$/J,$+$j$^$;$s!#(B
$B4D6-$O(BWindows 95
Meadow 0.50b1 (meadow-0_50b1-i386.tar.gz)
perl 5.004 (pl5404w0.zip)
im-83 (im83w0.zip)
mew 1.93b8 (mew193b8.zip)
$B$G$9!#$H$/$K$J$s$N(BPatch$B$b$"$F$F$$$^$;$s!#(B
~/.im/config$B$O(Bunix$BHG$G;H$C$F$$$?$b$N$r$=$N$^$^;H$$(B,
~/.emacs$B$O(Bunix$BHG$G$N(BMew $B4XO"ItJ,$rH4$-$@$7(B,$B$3$*$j$d$^MM$N(BMeadow $B$N%Z!<%8(B
$B$h$jD:$$$?$b$N$K%^!<%8$7$F(B($B$H$j$"$($:$[$H$s$I$=$N$^$^!#F0:n$,$*$A$D$$$?$i(B
$B$A$c$s$H=$@5$7$^$9!#(B)$B;H$C$F$$$^$9!#(B
#config $B$H(B.emacs$BE:IU$7$F$*$-$^$9!#(B
$B<+J,$J$j$K2a5n$N%a%$%j%s%0%j%9%HEy$N8!:w(B,$BD4::$O$7$?$D$b$j$J$N$G$9$,(B,
$B$b$7(BFAQ $B%l%Y%k$NLdBj$G$7$?$i$*<j?t$r$H$i$;$?$3$H$r$*OM$SCW$7$^$9!#(B
#Meadow $B$_$?$$$J3+H/%P!<%8%g%s$OKM$_$?$$$J=i?4<T$,;H$&$J$C$F8@$o$l$=$&$G$9$,!#!#!#(B
$B2?B4NI$-%"%I%P%$%9$r$*4j$$CW$7$^$9!#(B
$B$G$O<:NiCW$7$^$9!#(B
---------------------------------
$B:M%N85(B $B5A5.(B
Yoshitaka Sainomoto
e-mail : sainmt at example.com
Hitachi Co.Ltd.
Information Systems R&D Division
-------------- next part --------------
~/.emacs
---------------------------------------------------------------------------------
;; Emacs customization file by NAOHIRO Koriyama <kory at example.com>
;; specified for Emacs20, Meadow
;;; coding-system
(set-language-environment "Japanese")
(setq-default buffer-file-coding-system 'sjis)
(set-keyboard-coding-system 'sjis)
(set-default-coding-systems 'sjis)
(setq default-process-coding-system (cons 'sjis 'sjis))
(set-keyboard-coding-system 'sjis)
(set-terminal-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-w32-system-coding-system 'sjis)
(setq network-coding-system-alist '(("nntp" . (junet-unix . junet-unix))
(110 . (no-conversion . no-conversion))
(25 . (no-conversion . no-conversion))))
;;; personal load-path
(setq load-path
(append
(list (expand-file-name "c:/unix/local/meadow/site-lisp/mew")) load-path))
;;; shell command option
;(setq shell-command-option "-c") ;; if use UNIX-like shell "tcsh" or "bash", uncomment this line
;;; mw32script
(require 'mw32script)
(mw32script-init)
;;; ime
(select-input-method "MW32-IME")
(toggle-input-method)
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[$Brc(B]" "[--]"))
(mw32-ime-initialize)
;; leim
;(setq load-path
; (append
; (list "d:/Meadow/leim") load-path))
;(load "leim-list")
;;; 3button mouse setting
;(setq win32-lbutton-to-emacs-button 0)
;(setq win32-mbutton-to-emacs-button 1)
;(setq win32-rbutton-to-emacs-button 2)
;;; font setting for Meadow
(cond ((eq window-system 'w32)
(let ((font "Courier-12"))
(w32-add-font font
'((encoding-type . 0)
(charset-num . 0)
(overhang . 7)
(base . 12)
(height . 16)
(width . 7)))
(w32-change-font-logfont
font 0
'(w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49))
(w32-change-font-logfont
font 1
'(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49))
(w32-change-font-logfont
font 2
'(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49))
(w32-change-font-logfont
font 3
'(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49)))
(let ((font "Courier-12-ISO-8859-1"))
(w32-add-font font
'((encoding-type . 1)
(charset-num . 0)
(overhang . 0)
(base . 12)
(height . 16)
(width . 7)))
(w32-change-font-logfont
font 0
'(w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49))
(w32-change-font-logfont
font 1
'(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49))
(w32-change-font-logfont
font 2
'(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49))
(w32-change-font-logfont
font 3
'(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49)))
(let ((font "Nihongo-12"))
(w32-add-font font
'((encoding-type . 4)
(charset-num . 0)
(overhang . 0)
(base . 12)
(height . 16)
(width . 7)))
(w32-change-font-logfont
font 0
'(w32-logfont "$BqMqS(B $Bc4c7cCc/(B" 0 -12 400 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont
font 1
'(w32-logfont "$BqMqS(B $Bc4c7cCc/(B" 0 -12 700 0 nil nil nil 128 1 3 49))
(w32-change-font-logfont
font 2
'(w32-logfont "$BqMqS(B $B(B*INFN(" 0 -12 400 0 nil nil nil 128 1 3 17))*B
(w32-change-font-logfont
font 3
'(w32-logfont "$BqMqS(B $B(B*INFN(" 0 -12 700 0 nil nil nil 128 1 3 17)))*B
; (w32-add-font "Hojokanji-16"
; '((default-ascent . 0)
; (relative-compose . 0)
; (encoding-type . 0)
; (overhang . 0)
; (base . 16)
; (height . 16)
; (width . 17)))
; (w32-change-font-logfont
; "Hojokanji-16" 0 '(bdf-font "d:/Meadow/bdf/Japanese/jiskan16.bdf"))
(new-fontset "private-fontset" '((ascii . "Courier-12")
(latin-iso8859-1 . "Courier-12-ISO-8859-1")
(katakana-jisx0201 . "Nihongo-12")
(japanese-jisx0208 . "Nihongo-12")
(latin-jisx0201 . "Nihongo-12")
; (japanese-jisx0212 . "Hojokanji-16")
))
))
;; BDF font
;(load "bdffont")
;(w32-configure-bdf-font "bdf-fontset")
;; bitmap font for Meadow
;(if (fboundp 'w32-auto-regit-bdf-font)
; (progn
; (setq x-face-mule:uncompface-program "uncompface.exe")
; (setq x-face-mule:highlight-x-face-with-Mew t)
; (setq x-face-mule:highlight-x-face-position 'from)
; (setq x-face-mule:highlight-x-face-style 'xmas)
; (add-hook 'mime-view-content-header-filter-hook
; 'x-face-mule:gnus-art-mime-highlight-headers t)
; (require 'x-face-mule)
; (require 'bitmap)
; (w32-auto-regist-bdf-font "Bitmap-16" "d:/Meadow/bdf/etl8x16-bitmap.bdf")
; (set-fontset-font "private-fontset" 'bitmap "Bitmap-16")
; (set-fontset-font "bdf-fontset" 'bitmap "Bitmap-16")
; ))
;;; frame parameter
(setq default-frame-alist
(append (list '(foreground-color . "black")
'(background-color . "cornsilk")
'(border-color . "red")
'(mouse-color . "mediumpurple")
'(cursor-color . "green")
'(vertical-scroll-bars .nil)
'(width . 80)
; '(height . 60)
'(top . 25)
'(left . 80)
'(font . "private-fontset")
'(ime-font . "Nihongo-12")
)
default-frame-alist))
;;; personal load-path
;(setq load-path
; (append
; (list (expand-file-name "~/lisp")) load-path))
;(setq load-path
; (append
; (list "d:/Meadow/leim") load-path))
;(load "leim-list")
;;; where to put save file
(if (file-exists-p "~/.saves/")
(setq auto-save-list-file-prefix "~/.saves/"))
;;; info-path
;(setq Info-directory-list
; (append
; (list (expand-file-name "~/info") "d:/Meadow/0.50b1/info") Info-default-directory-list))
;;; font-lock
(if window-system
(progn
(global-font-lock-mode t)
(setq font-lock-support-mode 'fast-lock-mode)
(setq fast-lock-cache-directories '("~/.emacs-flc"))
))
;;; mode-line
(line-number-mode 1)
(column-number-mode 1)
(display-time)
;;; key setting
;(keyboard-translate ?\C-h ?\C-?)
;(global-set-key "\M-?" 'help-command)
;;; misc setting
(setq next-screen-context-lines 4)
(setq kill-whole-line t)
(setq transient-mark-mode t)
(setq user-mail-address "sainmt at example.com")
(setq user-full-name "Yoshitaka Sainomoto")
;;; match-paren
(define-key emacs-lisp-mode-map "%" 'match-paren)
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
;;; go next-visual-line
(global-set-key "\C-p" 'previous-window-line)
(global-set-key "\C-n" 'next-window-line)
(global-set-key [up] 'previous-window-line)
(global-set-key [down] 'next-window-line)
(defun previous-window-line (n)
(interactive "p")
(let ((cur-col
(- (current-column)
(save-excursion (vertical-motion 0) (current-column)))))
(vertical-motion (- n))
(move-to-column (+ (current-column) cur-col)))
(run-hooks 'auto-line-hook)
)
(defun next-window-line (n)
(interactive "p")
(let ((cur-col
(- (current-column)
(save-excursion (vertical-motion 0) (current-column)))))
(vertical-motion n)
(move-to-column (+ (current-column) cur-col)))
(run-hooks 'auto-line-hook)
)
;;; C/C++ mode
;; Customizations for all of c-mode, c++-mode, and objc-mode
(defun my-c-mode-common-hook ()
;; add my personal style and set it for the current buffer
; (c-set-style "gnu")
(c-set-style "cc-mode")
;; offset customizations not in my-c-style
(c-set-offset 'member-init-intro '++)
;; tab-width
(setq tab-width 4)
;; this will make sure spaces are used instead of tabs
; (setq indent-tabs-mode nil)
;; we like auto-newline and hungry-delete
(c-toggle-auto-hungry-state 1)
;; keybindings for C, C++, and Objective-C. We can put these in
;; c-mode-map because c++-mode-map and objc-mode-map inherit it
(define-key c-mode-map "\C-m" 'newline-and-indent)
;;; match-paren
)
;; THE following only works in Emacs 19
;; Emacs 18ers can use (setq c-mode-common-hook 'my-c-mode-common-hook)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;;; MIME (SEMI)
(load "mime-setup")
(eval-after-load "mime-view" '(require 'mime-file))
(setq mime-edit-split-message nil)
(setq default-mime-char 'junet)
;;; c-sig
(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
(autoload 'insert-signature-eref "c-sig" "c-sig" t)
(autoload 'insert-signature-automatically "c-sig" "c-sig" t)
(autoload 'insert-signature-randomly "c-sig" "c-sig" t)
;(random t)
;(setq sig-purge t) ;; delete spaces after signature
;(setq sig-separator "--\n") ;; separator
;; xcite
(autoload 'xcite "xcite" "Exciting cite" t)
(autoload 'xcite-yank-cur-msg "xcite" "Exciting cite" t)
;;; x-face
;(require 'x-face)
;(setq x-face-add-x-face-version-header t)
;(setq x-face-compressor nil)
;(setq x-face-default-xbm-file "rei.xbm")
;(mapcar
; (function (lambda (hook) (add-hook hook 'x-face-define-menu)))
; '(cmail-summary-mode-hook
; gnus-message-setup-hook gnus-summary-mode-hook
; mail-mode-hook
; mew-draft-mode-hook mew-summary-mode-hook mew-virtual-mode-hook
; mh-folder-mode-hook mh-letter-mode-hook
; rmail-mode-hook vm-summary-mode-hook))
;;; select-x-face
;(require 'select-xface)
;(setq select-xface-directory (expand-file-name "~/x-faces"))
;(add-hook 'gnus-message-setup-hook
; (lambda ()
; (define-key (current-local-map) "\C-x4x"
; 'select-xface)))
;;; browse-url
(require 'browse-url)
(setq browse-url-netscape-program "start.exe") ;;; PLEASE MODIFY
;(setq browse-url-browser-function 'browse-url-ie)
;(setq browse-url-ie-program "d:/Program Files/Plus!/Microsoft Internet/iexplore.exe")
(defun browse-url-ie (url)
(interactive (browse-url-interactive-arg "URL: "))
(if browse-url-ie-program
(let ((w32-start-process-show-window t))
(start-process (concat browse-url-ie-program url) nil browse-url-ie-program url))))
;(global-set-key [S-mouse-2] 'browse-url-at-mouse)
;;; ange ftp
(setq ange-ftp-ftp-program-name "d:/Meadow/0.50b1/bin/ftp.exe") ;;; PLEASE MODIFY
;;; gnuserv
;(require 'gnuserv)
;(gnuserv-start)
;;; windows.el
;(require 'windows)
;(win:startup-with-window)
;(define-key ctl-x-map "C" 'see-you-again)
;;; end of my .emacs configuration
;;
;; Mew
;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(global-set-key "\C-xm" 'mew-send)
(global-set-key "\C-xr" 'mew)
(setq mew-mail-domain-list '("isrd.hitachi.co.jp"))
(setq mew-reply-to nil)
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list nil)
(setq mew-fcc "+pool")
;(setq mew-icon-directory "c:/unix/local/mew-1.93b8/etc")
(setq mew-from
(concat "Yoshitaka Sainomoto" " <"
"sainmt at example.com>"))
(setq mew-demo nil)
(setq mew-highlight-header-style-subject 'default)
(setq mew-highlight-header-style-from 'default)
(setq mew-highlight-header-style-to 'default)
(setq mew-highlight-header-style-key 'default)
(setq mew-highlight-header-style-private 'default)
(setq mew-highlight-header-style-important 'default)
(setq mew-highlight-header-style-marginal 'default)
(setq mew-highlight-header-style-xmew 'default)
(setq mew-highlight-header-color-subject "Khaki")
(setq mew-highlight-header-color-from "LightBlue")
(setq mew-highlight-header-color-to "LightBlue")
(setq mew-highlight-header-color-key "SpringGreen")
(setq mew-highlight-header-color-private (face-foreground 'default))
(setq mew-highlight-header-color-important "SpringGreen")
(setq mew-highlight-header-color-marginal "white")
(setq mew-highlight-header-color-xmew "Red")
(add-hook 'mew-draft-mode-hook
(function (lambda ()
(setq mew-mime-content-type
(cons '("application/octet-stream" "\\.lzh$"
"base64" (mew-mime-application/octet-stream () nil))
mew-mime-content-type))
)))
(add-hook 'mew-draft-mode-hook
(function (lambda ()
(setq mew-mime-content-type
(cons '("application/octet-stream" "\\.zip$"
"base64" (mew-mime-application/octet-stream () nil))
mew-mime-content-type))
)))
(add-hook 'mew-summary-mode-hook
(function (lambda ()
(define-key mew-summary-mode-map "\C-cr" 'mew-summary-auto-refile)
)
)
)
;(setq mew-init-hook
; '(lambda ()
; (require 'signature)
; ; remap \C-c\C-i to insert-signature from signature.el)
; (define-key mew-draft-mode-map "\C-c\C-i" 'insert-signature)
; (add-hook 'kill-emacs-hook (function mew-mark-process-all-folders))
; ))
(setq mew-refile-guess-alist
'(("To:"
("mew-dist at example.com" . "+m-list/mew-dist")
("mule-win32 at example.com" . "+m-list/mule-win32")
)
("Cc:"
("mew-dist at example.com" . "+m-list/mew-dist")
("mule-win32 at example.com" . "+m-list/mule-win32")
)))
(defvar mew-refile-guess-control
'(
mew-refile-guess-by-alist
mew-refile-ctrl-auto-boundary
mew-refile-guess-by-newsgroups
mew-refile-guess-by-folder
mew-refile-ctrl-throw
mew-refile-guess-by-msgid
mew-refile-guess-by-from
mew-refile-guess-by-default
)
)
;;;
;;; End
;;;
(mew)
~/.im/config
----------------------------------------------------------------
###############################################################
###
### Sample /usr/local/lib/im/SiteConfig
###
### Syntax::
### key=value
###
### * "key=value" is equivalent to "--key=value" style command option.
### * "key" must start at the beginning of the line.
### * "=" must follow after "key" without white spaces.
### * White spaces are allowed between "=" and "value".
### * ":" can be used instead of "=".
### * Characters after "#" are ignored.
###
### The following examples are all the same:
### key=value
### key= value
### key:value
### key: value
###
### $variable will be expanded.
### '~' will be expanded.
###
##
## Default global parameters
##
User=sainmt
Name=Yoshitaka Sainomoto
Address=sainmt at example.com
FromDomain=isrd.hitachi.co.jp
# directories (relative to ~/)
MailDir=~/Mail
#NewsDir=News # for saved news
# folders in $MailDir
InboxFolder=+inbox # default destination of imget
DraftFolder=+draft
TrashFolder=+trash # default destination of message removal in Mew
# folder style in $NewsDir
#PreserveDot=off
# mode for creation
#FolderMode=0700
#MsgMode=0600
# to keep state of IM commands (CurrentFolder, etc.)
#ContextFile=Context # relative to ~/.im/
##
## Default settings
##
# mail address aliases
AliasesFile=~/.im/aliases # relative to ~/.im/
# PetName: mail address aliases for displaying
#PetnameFile=Petnames # relative to ~/.im/
# Message-ID database
#MsgDBFile=msgiddb # location (relative to ~/.im/)
#MsgDBType=DB # type of database (DB, NDBM, SDBM)
# to call user defined subroutines (relative to ~/.im/)
#GetSbr=get.sbr # hooks for imget
#ScanSbr=scan.sbr # hooks for imget/imls
# folders
#Src=$InboxFolder # default source of most commands
#Imrm.Src=$TrashFolder # default source for message cleanups
# imget/imls
Form=%4n %m%d %-17A %-20S <<%-45b # default format for scanning
Width=97 # default width for scanning
JisSafe=on # escape seq. of JIS char. should be managed
#Indent=2 # indent step for threading
# servers
Smtpservers=43pss20.33g.isrd.hitachi.co.jp # default server for SMTP
#NntpServers=localhost # default server for NNTP
# imget
Imget.Src=pop # default source of imget (local mailbox)
#PopHistory=pophist # to save last state (relative to ~/.im/)
#NntpHistory=newshist # to save last state (relative to ~/.im/)
#MBoxStyle=qmail # if folder style mbox of qmail is used
#Imget.Src=local:${HOME}/MailDir# in case of qmail
PopAccount=/POP:sainmt at example.com # Account info for POP access
#ImapAccount=/AUTH at example.com/143# Account info for IMAP access
#HttpProxy=proxy-server:8080 # Proxy server for HTTP access
#NoProxy=http://.*my.domain/ # URL regex not to use Proxy server
#UsePwAgent=yes # Use password agent
#PwAgentPort=6543 # Port to connect pwagent with TCP/IP
#PwAgentPort=0 # (Insecure for multi-user system!)
# 0 to use UNIX domain socket (more secure)
# be careful on security if you wish to use PwFiles!
UsePwFiles=yes # Use password files
PwFiles=~/.im/password # Password files (relative to ~/.im/)
# imput
#FccDir=$MailDir # directory for FCC folders
#MsgIdDomain=${HOST} # if you want to use FQDN of dispatching host
ToDomain=isrd.hitachi.co.jp
Mew-win32 メーリングリストの案内