[Mew-dist 06499] Re: PGP Mail

[橋本弘藏]

> > PGPで送ろうとすると，
> >   Marker does not point anywhere
> > というエラーが出て送れません。PGPの処理自体は以下のようにうまくいって
> > いるようです。改めてドラフトモードに入って，ヘッダ部を編集し直すと送れ
> > ます。何か変な設定をしてしまっているのでしょうか。
> 
> FAQ を読んで、デバッガのトレースを送って下さい。

何時もどうもありがとうございます。最後に添付したトレース結果になりまし
た。そこで以下の .emacs 内の自動ispellチェック部分を以下のようにコメン
トアウトするとうまく行きました。この部分のどこかがおかしいようです。よ
ろしくお願い致します。

(setq mew-send-hook
       (lambda()
;       (if (string=
;          (mew-charset-guess-region mew-marker-header-end (point-max))
;                  "us-ascii" )
;                 (condition-case nil
;                     (ispell-message)
;                   (error nil) ))
	(save-excursion
	  (beginning-of-buffer)
	  (re-search-forward "^Subject:" nil t 1)
	  (set-mark (point)) (end-of-line)
      (if (string-match "^ +$" (buffer-substring (mark) (point)))
	      (insert (read-from-minibuffer "Subject: " nil nil))))))

   橋本@京大超高層 [電話 0774-38-3807 (直通); FAX 0774-31-8463]

-------------- *Backtrace* ------------
Signaling: (error "Marker does not point anywhere")
  narrow-to-region(#<marker in no buffer> 1034)
  (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (let (... ... lclist lc mc-flag) (while ... ... ... ...) lclist))
  (save-excursion (save-restriction (narrow-to-region beg end) (goto-char ...) (let ... ... lclist)))
  mew-find-cs-region(#<marker in no buffer> 1034)
  (let* ((tcsl ...) (N ...) (alst mew-cs-database) i a acsl aret csl ret) (while alst (setq a ...) (setq acsl ...) (setq aret ...) (setq alst ...) (catch ... ... ...) (if ... ... ...)) (or ret mew-error-charset-unknown))
  (if (not mew-mule-p) (save-excursion (goto-char beg) (if ... "iso-8859-1" "us-ascii")) (let* (... ... ... i a acsl aret csl ret) (while alst ... ... ... ... ... ...) (or ret mew-error-charset-unknown)))
  mew-charset-guess-region(#<marker in no buffer> 1034)
  (string= (mew-charset-guess-region mew-marker-header-end (point-max)) "us-ascii")
  (if (string= (mew-charset-guess-region mew-marker-header-end ...) "us-ascii") (condition-case nil (ispell-message) (error nil)))
  (lambda nil (if (string= ... "us-ascii") (condition-case nil ... ...)) (save-excursion (beginning-of-buffer) (re-search-forward "^Subject:" nil t 1) (set-mark ...) (end-of-line) (if ... ...)))()
  run-hooks(mew-send-hook)
  mew-draft-send-letter(nil)
  call-interactively(mew-draft-send-letter)