[Mew-dist 15043] Re: cite labelの制限

[KOIE Hidetaka ( 鯉江英隆 )]

 From:       Tatsuya Kinoshita <tatsuyak at example.com>
 Subject:    [Mew-dist 14991] Re: cite labelの制限
 Date:       Thu, 23 Nov 2000 12:34:46 +0900
 Message-Id: <20001123.123825.85407683.tats at example.com>

  | > mew-cite-fields / mew-cite-format を挿入するときに
  | > fill-column を越えた分は削って「 ..」に付けかえるためのパッチです。
  | 
  | 「削る」「詰める(折り返す)」「そのまま」を選びたい。
  | 
  | あと、「 ..」以外の文字にしたい人もいるかも。

.mewに
    (setq mew-draft-cite-fill-mode 'wrap)
と設定すれば「詰める(折り返す)」になり、
    (setq mew-draft-cite-fill-mode 'truncate)
    (setq mew-draft-cite-dotdot " …")    
と設定すれば「削る」になります。
    (setq mew-draft-cite-fill-mode nil)
で従来どおりの「そのまま」になります。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
-------------- next part --------------
*** mew-draft.el.~1~	Fri Nov 24 12:08:22 2000
--- mew-draft.el	Sat Nov 25 13:34:07 2000
*************** (defun mew-cite-get-value (field)
*** 535,545 ****
  (defun mew-cite-strings ()
    "A function to create cite label according to 
  'mew-cite-format' and 'mew-cite-fields'."
!   (if (null mew-cite-fields)
!       ""
!     (apply (function format)
! 	   mew-cite-format
! 	   (mapcar (function mew-cite-get-value) mew-cite-fields))))
  
  (defun mew-cite-prefix-username ()
    "A good candidate for mew-cite-prefix-function.
--- 535,574 ----
  (defun mew-cite-strings ()
    "A function to create cite label according to 
  'mew-cite-format' and 'mew-cite-fields'."
!   (save-excursion
!     (if (null mew-cite-fields)
!         ""
!       (let ((label
!              (apply (function format)
!                     mew-cite-format
!                     (mapcar (function mew-cite-get-value) mew-cite-fields))))
!         (mew-set-buffer-tmp)
!         (insert label)
!         (goto-char (point-min))
!         (while (< (point) (point-max))
!           (cond
!            ((eq mew-draft-cite-fill-mode 'truncate)
!             (let ((dotdot (if (stringp mew-draft-cite-dotdot)
!                               mew-draft-cite-dotdot "")))
!               (end-of-line)            
!               (if (< fill-column (current-column))
!                   (let ((eol (point)))
!                   (insert dotdot)
!                   (goto-char eol)
!                   (while (< fill-column (current-column))
!                     (delete-backward-char 1))))
!               (forward-line)
!               (beginning-of-line)))
!            ((eq mew-draft-cite-fill-mode 'wrap)
!             (let ((beg (point)))
!               (end-of-line)
!               (fill-region beg (point)))
!             (forward-line)
!             (beginning-of-line))
!            (t
!             (forward-line)
!             (beginning-of-line))))
!         (buffer-string)))))
  
  (defun mew-cite-prefix-username ()
    "A good candidate for mew-cite-prefix-function.
-------------- next part --------------
*** mew-vars.el.~1~	Fri Nov 24 12:08:22 2000
--- mew-vars.el	Sat Nov 25 13:01:15 2000
*************** (defcustom mew-cite-format "From: %s\nSu
*** 935,940 ****
--- 935,954 ----
    :group 'mew-cite
    :type 'string)
  
+ (defcustom mew-draft-cite-fill-mode nil
+   "*Method to format a citation header.
+ If 'wrap, format with fill-region.
+ If 'truncate, cut over fill-column and insert mew-draft-cite-dotdot."
+   :group 'mew-draft
+   :type '(choice (symbol :tag "Wrap" wrap)
+                  (symbol :tag "Truncate" truncate)
+                  (symbol :tag "No fill" nil)))
+ 
+ (defcustom mew-draft-cite-dotdot " .."
+   "String that is inserted a truncated line when mew-draft-cite-fill-mode is 'truncate"
+   :group 'mew-cite
+   :type 'string)
+ 
  (defcustom mew-summary-reply-position 'body
    "If 'body, the cursor locates in the beginning of the body. 
  Otherwise, the cursor is after To:."