[Mew-dist 17791] mew-cite-strings-function

[Tatsuya Kinoshita]

引用ラベルを生成する関数mew-cite-stringsを差し替え・拡張しやすく
するため、mew-cite-strings-functionを定義しました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

*** mew-draft.el.orig	Fri Jun  1 01:30:57 2001
--- mew-draft.el	Mon Jun 18 09:15:12 2001
***************
*** 559,565 ****
      (save-restriction
        (narrow-to-region beg end)
        (condition-case nil
!           (setq label (mew-cite-strings))
          (error
  	 (error "Syntax of mew-cite-format was changed. Read explanation of mew-cite-fields")))
        (if (null mew-cite-prefix-function)
--- 559,565 ----
      (save-restriction
        (narrow-to-region beg end)
        (condition-case nil
!           (setq label (funcall mew-cite-strings-function))
          (error
  	 (error "Syntax of mew-cite-format was changed. Read explanation of mew-cite-fields")))
        (if (null mew-cite-prefix-function)
***************
*** 588,593 ****
--- 588,595 ----
        (setq repl (funcall func (mew-addrstr-parse-address value)))
        (if repl (setq value repl)))
      (or value "")))
+ 
+ (defvar mew-cite-strings-function (function mew-cite-strings))
  
  (defun mew-cite-strings ()
    "A function to create cite label according to