Mercurial > hg > xemacs-beta

comparison lisp/mu/mu-cite.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children e04119814345
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; MINOURA Makoto <minoura@netlaputa.or.jp> 6 ;; MINOURA Makoto <minoura@netlaputa.or.jp>
7 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 7 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
8 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 8 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
9 ;; Version: $Revision: 1.4 $ 9 ;; Version: $Revision: 1.5 $
10 ;; Keywords: mail, news, citation 10 ;; Keywords: mail, news, citation
11 11
12 ;; This file is part of MU (Message Utilities). 12 ;; This file is part of MU (Message Utilities).
13 13
14 ;; This program is free software; you can redistribute it and/or 14 ;; This program is free software; you can redistribute it and/or
52 52
53 ;;; @ version 53 ;;; @ version
54 ;;; 54 ;;;
55 55
56 (defconst mu-cite/RCS-ID 56 (defconst mu-cite/RCS-ID
57 "$Id: mu-cite.el,v 1.4 1997/02/02 05:05:45 steve Exp $") 57 "$Id: mu-cite.el,v 1.5 1997/02/04 02:36:02 steve Exp $")
58 (defconst mu-cite/version (get-version-string mu-cite/RCS-ID)) 58 (defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
59 59
60 60
61 ;;; @ formats 61 ;;; @ formats
62 ;;; 62 ;;;
63 63
64 (defvar mu-cite/cited-prefix-regexp "\\(^[^ \t\n>]+>+[ \t]*\\|^[ \t]*$\\)" 64 (defvar mu-cite/cited-prefix-regexp "\\(^[^ \t\n<>]+>+[ \t]*\\|^[ \t]*$\\)"
65 "*Regexp to match the citation prefix. 65 "*Regexp to match the citation prefix.
66 If match, mu-cite doesn't insert citation prefix.") 66 If match, mu-cite doesn't insert citation prefix.")
67 67
68 (defvar mu-cite/prefix-format '(prefix-register-verbose "> ") 68 (defvar mu-cite/prefix-format '(prefix-register-verbose "> ")
69 "*List to represent citation prefix. 69 "*List to represent citation prefix.
388 )) 388 ))
389 389
390 390
391 ;;; @ message editing utilities 391 ;;; @ message editing utilities
392 ;;; 392 ;;;
393 393
394 (defvar citation-mark-chars ">}|" 394 (defvar citation-mark-chars ">}|"
395 "*String of characters for citation delimiter. [mu-cite.el]") 395 "*String of characters for citation delimiter. [mu-cite.el]")
396
397 (defvar citation-disable-chars "<{"
398 "*String of characters not allowed as citation-prefix.")
396 399
397 (defun detect-paragraph-cited-prefix () 400 (defun detect-paragraph-cited-prefix ()
398 (save-excursion 401 (save-excursion
399 (goto-char (point-min)) 402 (goto-char (point-min))
400 (let ((i 0) 403 (let ((i 0)
433 (buffer-substring (point-min)(point)) 436 (buffer-substring (point-min)(point))
434 ) 437 )
435 prefix))) 438 prefix)))
436 ((progn 439 ((progn
437 (goto-char (point-max)) 440 (goto-char (point-max))
438 (re-search-backward (concat "[" citation-mark-chars "]") 441 (re-search-backward
439 nil t) 442 (concat "[" citation-disable-chars "]") nil t)
443 (re-search-backward
444 (concat "[" citation-mark-chars "]") nil t)
440 ) 445 )
441 (goto-char (match-end 0)) 446 (goto-char (match-end 0))
442 (if (looking-at "[ \t]+") 447 (if (looking-at "[ \t]+")
443 (goto-char (match-end 0)) 448 (goto-char (match-end 0))
444 ) 449 )