projects
/
elisp
/
mu-cite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7058a18
)
tm 7.103.1.
tm-7_103_1
tm-7_103_2
tm-7_103_3
tm-7_103_4
tm-7_103_5
tm-7_104
tm-7_105
tm-7_105_1
author
morioka
<morioka>
Tue, 10 Mar 1998 11:41:50 +0000
(11:41 +0000)
committer
morioka
<morioka>
Tue, 10 Mar 1998 11:41:50 +0000
(11:41 +0000)
mu-cite.el
patch
|
blob
|
history
diff --git
a/mu-cite.el
b/mu-cite.el
index
0cae4f8
..
1cf1d49
100644
(file)
--- a/
mu-cite.el
+++ b/
mu-cite.el
@@
-6,7
+6,7
@@
;; MINOURA Makoto <minoura@netlaputa.or.jp>
;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; MINOURA Makoto <minoura@netlaputa.or.jp>
;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Revision: 7.45 $
+;; Version: $Revision: 7.47 $
;; Keywords: mail, news, citation
;; This file is part of MU (Message Utilities).
;; Keywords: mail, news, citation
;; This file is part of MU (Message Utilities).
@@
-54,14
+54,14
@@
;;;
(defconst mu-cite/RCS-ID
;;;
(defconst mu-cite/RCS-ID
- "$Id: mu-cite.el,v 7.45 1997/01/31 12:31:20 morioka Exp $")
+ "$Id: mu-cite.el,v 7.47 1997/02/01 18:29:43 morioka Exp $")
(defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
;;; @ formats
;;;
(defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
;;; @ formats
;;;
-(defvar mu-cite/cited-prefix-regexp "\\(^[^ \t\n>]+>+[ \t]*\\|^[ \t]*$\\)"
+(defvar mu-cite/cited-prefix-regexp "\\(^[^ \t\n<>]+>+[ \t]*\\|^[ \t]*$\\)"
"*Regexp to match the citation prefix.
If match, mu-cite doesn't insert citation prefix.")
"*Regexp to match the citation prefix.
If match, mu-cite doesn't insert citation prefix.")
@@
-390,10
+390,13
@@
function according to the agreed upon standard."
;;; @ message editing utilities
;;;
;;; @ message editing utilities
;;;
-
+
(defvar citation-mark-chars ">}|"
"*String of characters for citation delimiter. [mu-cite.el]")
(defvar citation-mark-chars ">}|"
"*String of characters for citation delimiter. [mu-cite.el]")
+(defvar citation-disable-chars "<{"
+ "*String of characters not allowed as citation-prefix.")
+
(defun detect-paragraph-cited-prefix ()
(save-excursion
(goto-char (point-min))
(defun detect-paragraph-cited-prefix ()
(save-excursion
(goto-char (point-min))
@@
-435,8
+438,10
@@
function according to the agreed upon standard."
prefix)))
((progn
(goto-char (point-max))
prefix)))
((progn
(goto-char (point-max))
- (re-search-backward (concat "[" citation-mark-chars "]")
- nil t)
+ (re-search-backward
+ (concat "[" citation-disable-chars "]") nil t)
+ (re-search-backward
+ (concat "[" citation-mark-chars "]") nil t)
)
(goto-char (match-end 0))
(if (looking-at "[ \t]+")
)
(goto-char (match-end 0))
(if (looking-at "[ \t]+")