[Mew-dist 14988] cite labelの制限
KOIE Hidetaka ( 鯉江英隆 )
hide at example.com
2000年 11月 23日 (木) 04:09:15 JST
mew-cite-original() で
mew-cite-fields / mew-cite-format を挿入するときに
fill-column を越えた分は削って「 ..」に付けかえるためのパッチです。
--- mew-draft.el.~1~ Wed Nov 22 12:36:29 2000
+++ mew-draft.el Thu Nov 23 03:14:17 2000
@@ -537,7 +537,25 @@ (defun mew-cite-original (&optional arg)
(if (eq arg nil)
;; header has been already cited. So, delete it.
(delete-region beg (progn (mew-header-goto-body) (point))))
- (insert label)
+
+ ;; Insert a cite-label
+ (let ((beg (point)))
+ (insert label)
+ (let ((end (point)))
+ (goto-char beg)
+ (while (< (point) end)
+ (end-of-line)
+ (if (< fill-column (current-column))
+ (let ((eol (point)))
+ (insert " ..")
+ (setq end (+ end (length " ..")))
+ (goto-char eol)
+ (while (< fill-column (current-column))
+ (delete-backward-char 1)
+ (setq end (1- end)))))
+ (forward-line)
+ (beginning-of-line))))
+
(push-mark (point) t t) ;; for C-x C-x
(and (bolp) (insert prefix))
(while (= 0 (forward-line))
--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
Mew-dist メーリングリストの案内