[Mew-dist 08976] Re: failed to open line

[Takanori-Nishimura]

にしむら@SRA です。

# う〜ん、ひさびさ。

Kazu Yamamoto (山本和彦) <kazu at example.com> さんは
Tue, 25 May 1999 20:28:21 +0900 に
「[Mew-dist 08974] Re: failed to open line」の件で書きました。

kazu> > あるメイルに対して A すると、文章が引用されて本文(書こうとし
kazu> > ている文章)が作られカーソルは文章の最後に行きます。
kazu> > そこでカーソルを本文の一行目(----の次の行)へ移動させて C-o し
kazu> > て行を空けようとしても
kazu> > 	Attempt to insert within read only text
kazu> > というエラーが出てしまいます。
kazu> これは本当ですか？ "----" の行で C-o してませんか？
kazu> ＃本当ならお使いの open-line が悪い気がします。

  元記事の磯部さんの X-Mailer が

X-Mailer: Mew version 1.94b29 on Emacs 19.28 / Mule 2.3 (末摘花)

となってますし、最近バージョンアップしたんでしたら、間違いなく 
open-line の話だと思います。

# これがない頃は ---- の直下の先頭 column で C-o は入らなかったはずで
すから。

  私の .emacs の中に入ってる open-line (確かここで出て来たものです)を
つけておきますので、試してみてはどうでしょう。

;;;
;;; open-line(19.28 error hack)
;;;
(defun open-line (arg)
  "Insert a newline and leave point before it.
If there is a fill prefix and/or a left-margin, insert them on the new line
if the line would have been blank.
With arg N, insert N newlines."
  (interactive "*p")
  (let* ((do-fill-prefix (and fill-prefix (bolp)))
         (loc (point)))
    (newline arg)
    (goto-char loc)
    (while (> arg 0)
      (if (and do-fill-prefix (bolp))
	  (insert-and-inherit fill-prefix))
      (forward-line 1)
      (setq arg (1- arg)))
    (goto-char loc)
    (end-of-line)))

# おそらく FAQ にもあるでしょうが、今 Web 見れる環境じゃないので、チェッ
クしてません.....

## 違ったらごめんなさい.....

----------------------------------------------------------------------
西村　考則  (Takanori Nishimura)	(mailto:t-nisimr at example.com)
  株式会社SRA(Software Research Associates, Inc.)/関西支社/開発
	TEL. 06-6536-2331	FAX. 06-6536-2452