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:
bf65572
)
tm 7.103.
tm-7_103
author
morioka
<morioka>
Tue, 10 Mar 1998 11:34:03 +0000
(11:34 +0000)
committer
morioka
<morioka>
Tue, 10 Mar 1998 11:34:03 +0000
(11:34 +0000)
mu-cite.el
patch
|
blob
|
history
diff --git
a/mu-cite.el
b/mu-cite.el
index
51bff27
..
0cae4f8
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.44 $
+;; Version: $Revision: 7.45 $
;; 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,7
+54,7
@@
;;;
(defconst mu-cite/RCS-ID
;;;
(defconst mu-cite/RCS-ID
- "$Id: mu-cite.el,v 7.44 1997/01/13 15:49:13 morioka Exp $")
+ "$Id: mu-cite.el,v 7.45 1997/01/31 12:31:20 morioka Exp $")
(defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
(defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
@@
-410,7
+410,10
@@
function according to the agreed upon standard."
(progn (end-of-line)(point))))
(setq ret (string-compare-from-top prefix str))
)
(progn (end-of-line)(point))))
(setq ret (string-compare-from-top prefix str))
)
- (setq prefix (second ret))
+ (setq prefix
+ (if (stringp ret)
+ ret
+ (second ret)))
(setq i (1+ i))
)
(cond ((> i 1) prefix)
(setq i (1+ i))
)
(cond ((> i 1) prefix)