HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* mh-acros.el, mh-comp.el, mh-e.el, mh-folder.el, mh-letter.el:
[bpt/emacs.git]
/
lisp
/
mh-e
/
mh-seq.el
diff --git
a/lisp/mh-e/mh-seq.el
b/lisp/mh-e/mh-seq.el
index
f8ea12f
..
fc3e5c0
100644
(file)
--- a/
lisp/mh-e/mh-seq.el
+++ b/
lisp/mh-e/mh-seq.el
@@
-1,8
+1,6
@@
;;; mh-seq.el --- MH-E sequences support
;;; mh-seq.el --- MH-E sequences support
-;; Copyright (C) 1993, 1995,
-;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 2001-2011 Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@@
-200,7
+198,8
@@
MESSAGE appears."
" "))))
;; Shush compiler.
" "))))
;; Shush compiler.
-(defvar tool-bar-mode) ; XEmacs
+(mh-do-in-xemacs
+ (defvar tool-bar-mode))
(defvar tool-bar-map)
;;;###mh-autoload
(defvar tool-bar-map)
;;;###mh-autoload
@@
-819,7
+818,7
@@
that note messages to be refiled."
"Return a list of message numbers from point to the end of the line.
Expands ranges into set of individual numbers."
(let ((msgs ())
"Return a list of message numbers from point to the end of the line.
Expands ranges into set of individual numbers."
(let ((msgs ())
- (end-of-line (
save-excursion (end-of-line) (point)
))
+ (end-of-line (
point-at-eol
))
num)
(while (re-search-forward "[0-9]+" end-of-line t)
(setq num (string-to-number (buffer-substring (match-beginning 0)
num)
(while (re-search-forward "[0-9]+" end-of-line t)
(setq num (string-to-number (buffer-substring (match-beginning 0)
@@
-1017,5
+1016,4
@@
removed."
;; sentence-end-double-space: nil
;; End:
;; sentence-end-double-space: nil
;; End:
-;; arch-tag: 8e952711-01a2-485b-bf21-c9e3ad4de942
;;; mh-seq.el ends here
;;; mh-seq.el ends here