[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
本当にすみません。
- To: bep@argv.org
- Subject: 本当にすみません。
- From: 深沢拓也 <t-f@m-net.ne.jp>
- Date: Sun, 13 May 2001 02:11:15 +0900 (JST)
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
深沢です。
設定はしてみたのですが、うまく行きません。
apopパスワードがどうこうしゃべって、先へ進めません。
すごく長くなりますが、.emacsの内容をつけます。
読んでいるだけでいやになるかも、しれませんが、お許しください。
「ここから内容」
;;; -*- emacs-lisp -*-
;;; sample .emacs for Bilingual Emacspeak for Windows
;;; 2000-2001
;;; written by M. Sakamoto
;;; modified by T. Watanabe
;;; Japanese coding system
(set-language-environment "Japanese")
(setq-default buffer-file-coding-system 'sjis-dos)
(set-terminal-coding-system 'sjis)
(set-keyboard-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-w32-system-coding-system 'sjis-dos)
;;; setting microsoft IME
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
;;; Auto Fill Mode
(add-hook 'text-mode-hook
(function (lambda ()
(auto-fill-mode 1)
(setq fill-column 72)
)))
;;; print
(define-process-argument-editing
"/notepad\\.exe\\'"
(lambda (x) (general-process-argument-editing-function x nil t)))
(setq print-region-function
'(lambda (start end &rest dummyargs)
(let ((tmpfile
(unix-to-dos-filename
(concat (or (getenv "TMP") (getenv "TEMP")) "/"
(make-temp-name "L") ".tmp"))))
(if (file-exists-p tmpfile)
(signal 'file-error
'("temporary file exists!")))
(let ((coding-system-for-write 'sjis-dos))
(write-region start end tmpfile))
(call-process "notepad" nil nil nil "/p" tmpfile)
(delete-file tmpfile))))
;; misc
;(setq make-backup-files t)
;(setq auto-save-default t)
;(setq tab-width 4)
;; mode-line
;(line-number-mode 1)
;(column-number-mode 1)
;(display-time)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Setting emacspeak
(defun load-emacspeak ()
(interactive)
(progn (defvar dtk-speech-rate-step 20)
(defvar dtk-default-speech-rate 260) ; 180 is appropriate for the sig
hted
(setenv "EMACSPEAK_PLAY_PROGRAM" "play.exe")
(setenv "DTK_TCL" "speak") ; speech server's name is speak.exe
(load-file "c:/usr/local/share/Meadow/site-lisp/emacspeak/lisp/emacsp
eak-setup.el")))
(load-emacspeak) ; start emacspeak automatically
;; some usuful commands
;(dtk-set-rate 260 1) ; set default-speech-rate globally
;(emacspeak-toggle-auditory-icons) ; toggle auditory-icons (need play.ex
e)
;;; Mew Easy Settings (generated automatically)
(setq load-path ; Meadow
(cons (expand-file-name (concat exec-directory "../../site-lisp/me
w"))
load-path))
;; configuration
(setq mew-config-alist
'(("default"
("name" . "Takuya Fukazawa")
("user" . "t-f")
("mail-domain" . "m-net.ne.jp")
("smtp-server" . "smtp.m-net.ne.jp")
("pop-server" . "pop.m-net.ne.jp")
("pop-user" . "t-f"))))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-letter
'mew-draft-kill
'mew-send-hook))
;(setq mew-cc nil)
;(setq mew-fcc "+backup")
;; do not show demonstration
;(setq mew-demo nil)
;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list '("To:" "Apparently-To:"))
;; offline mode
;(setq mew-auto-get nil)
;; printing
;(setq mew-w32-prog-print "notepad.exe")
;(setq mew-w32-prog-print-arg "/p")
;(setq mew-w32-cs-print 'shift_jis-dos)
;(define-process-argument-editing "/notepad\.exe$"
; (lambda (x)
; (general-process-argument-editing-function x nil t)))
;; caesar decryption
;(add-hook 'mew-init-hook (lambda () (require 'mew-caesar)))
;; colorful highlighting
;(eval-after-load "mew" '(require 'mew-cite-color))
;; Another Mew search method, powered by Namazu.
;(eval-after-load "mew" '(require 'mew-nmz))
;; browse-url
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;; password caching
;(setq mew-use-cached-passwd t)
;; fancy threading
;(setq mew-use-fancy-thread t)
;; grep (needs Perl)
;(setq mew-prog-grep "mg")
;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-x" "&mime" "-e"))
;; add review mark('*') automatically
;(setq mew-scan-form-mark-review t)
;; biff
;(setq mew-use-biff t)
;(setq mew-use-biff-bell t)
(defun write-file-in-sjis ()
(interactive)
(let ((coding-system-for-write 'sjis))
(call-interactively 'write-file)))
(global-set-key [f12] 'write-file-in-sjis)
(setq mew-use-cached-passwd t)
;;; Mew Easy Settings (generated automatically)
(setq load-path ; Meadow
(cons (expand-file-name (concat exec-directory "../../site-lisp/me
w"))
load-path))
;; configuration
(setq mew-config-alist
'(("remote"
("name" . "Fukazawa Takuya")
("user" . "blpc")
("mail-domain" . "blpc.office.ne.jp")
("smtp-server" . "smtp.m-net.ne.jp")
("pop-server" . "pop.m-net.ne.jp")
("pop-user" . "blpc"))
'(("default"
("name" . "takuya fukazawa")
("user" . "t-f")
("mail-domain" . "m-net.ne.jp")
("smtp-server" . "smtp.m-net.ne.jp")
("pop-server" . "pop.m-net.ne.jp")
("pop-user" . "t-f"))))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-letter
'mew-draft-kill
'mew-send-hook))
;(setq mew-cc nil)
;(setq mew-fcc "+backup")
;; do not show demonstration
;(setq mew-demo nil)
;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list '("To:" "Apparently-To:"))
;; offline mode
;(setq mew-auto-get nil)
;; printing
;(setq mew-w32-prog-print "notepad.exe")
;(setq mew-w32-prog-print-arg "/p")
;(setq mew-w32-cs-print 'shift_jis-dos)
;(define-process-argument-editing "/notepad\.exe$"
; (lambda (x)
; (general-process-argument-editing-function x nil t)))
;; caesar decryption
;(add-hook 'mew-init-hook (lambda () (require 'mew-caesar)))
;; colorful highlighting
;(eval-after-load "mew" '(require 'mew-cite-color))
;; Another Mew search method, powered by Namazu.
;(eval-after-load "mew" '(require 'mew-nmz))
;; browse-url
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;; password caching
;(setq mew-use-cached-passwd t)
;; fancy threading
;(setq mew-use-fancy-thread t)
;; grep (needs Perl)
;(setq mew-prog-grep "mg")
;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-x" "&mime" "-e"))
;; add review mark('*') automatically
;(setq mew-scan-form-mark-review t)
;; biff
;(setq mew-use-biff t)
;(setq mew-use-biff-bell t)
(setq mew-pop-auth 'pass)
;;; Mew Easy Settings (generated automatically)
(setq load-path ; Meadow
(cons (expand-file-name (concat exec-directory "../../site-lisp/me
w"))
load-path))
;; configuration
(setq mew-config-alist
'(("default"
("name" . "Takuya Fukazawa")
("user" . "t-f")
("mail-domain" . "m-net.ne.jp")
("smtp-server" . "smtp.m-net.ne.jp")
("pop-server" . "pop.m-net.ne.jp")
("pop-user" . "t-f"))))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-letter
'mew-draft-kill
'mew-send-hook))
;(setq mew-cc nil)
;(setq mew-fcc "+backup")
;; do not show demonstration
;(setq mew-demo nil)
;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list '("To:" "Apparently-To:"))
;; offline mode
;(setq mew-auto-get nil)
;; printing
;(setq mew-w32-prog-print "notepad.exe")
;(setq mew-w32-prog-print-arg "/p")
;(setq mew-w32-cs-print 'shift_jis-dos)
;(define-process-argument-editing "/notepad\.exe$"
; (lambda (x)
; (general-process-argument-editing-function x nil t)))
;; caesar decryption
;(add-hook 'mew-init-hook (lambda () (require 'mew-caesar)))
;; colorful highlighting
;(eval-after-load "mew" '(require 'mew-cite-color))
;; Another Mew search method, powered by Namazu.
;(eval-after-load "mew" '(require 'mew-nmz))
;; browse-url
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;; password caching
;(setq mew-use-cached-passwd t)
;; fancy threading
;(setq mew-use-fancy-thread t)
;; grep (needs Perl)
;(setq mew-prog-grep "mg")
;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-x" "&mime" "-e"))
;; add review mark('*') automatically
;(setq mew-scan-form-mark-review t)
;; biff
;(setq mew-use-biff t)
;(setq mew-use-biff-bell t)
;;; Mew Easy Settings (generated automatically)
(setq load-path ; Meadow
(cons (expand-file-name (concat exec-directory "../../site-lisp/me
w"))
load-path))
;; configuration
(setq mew-config-alist
'(("default"
("name" . "Takuya Fukazawa")
("user" . "t-f")
("mail-domain" . "m-net.ne.jp")
("smtp-server" . "smtp.m-net.ne.jp")
("pop-server" . "pop.m-net.ne.jp")
("pop-user" . "t-f"))))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-letter
'mew-draft-kill
'mew-send-hook))
;(setq mew-cc nil)
;(setq mew-fcc "+backup")
;; do not show demonstration
;(setq mew-demo nil)
;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list '("To:" "Apparently-To:"))
;; offline mode
;(setq mew-auto-get nil)
;; printing
;(setq mew-w32-prog-print "notepad.exe")
;(setq mew-w32-prog-print-arg "/p")
;(setq mew-w32-cs-print 'shift_jis-dos)
;(define-process-argument-editing "/notepad\.exe$"
; (lambda (x)
; (general-process-argument-editing-function x nil t)))
;; caesar decryption
;(add-hook 'mew-init-hook (lambda () (require 'mew-caesar)))
;; colorful highlighting
;(eval-after-load "mew" '(require 'mew-cite-color))
;; Another Mew search method, powered by Namazu.
;(eval-after-load "mew" '(require 'mew-nmz))
;; browse-url
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
;; password caching
;(setq mew-use-cached-passwd t)
;; fancy threading
;(setq mew-use-fancy-thread t)
;; grep (needs Perl)
;(setq mew-prog-grep "mg")
;(setq mew-prog-grep-opts '("-j" "jis" "-l" "-x" "&mime" "-e"))
;; add review mark('*') automatically
;(setq mew-scan-form-mark-review t)
;; biff
;(setq mew-use-biff t)
;(setq mew-use-biff-bell t)
「ここまで」
なんかこれを見ると、同じような設定が数回されているような気もするのですが。
そういえば不具合が合って、なんかいかMewを入れなおしたような記憶が。
それでは。