[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 メーリングリストの案内