; Spelling fixes

[gnu-emacs] / lisp / mh-e / mh-seq.el

diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index 6c8a0e91359caf6920de4145f50605a26d2feefc..5acdc2eebf94df0f093038d09e3b5f125f1472a4 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, 2011
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 2001-2016 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


@@ -391,7 +390,7 @@ then a non-empty sequence is read."
   "Read and return a sequence name.
 Prompt with PROMPT, raise an error if the sequence is empty and
 the NOT-EMPTY flag is non-nil, and supply an optional DEFAULT
   "Read and return a sequence name.
 Prompt with PROMPT, raise an error if the sequence is empty and
 the NOT-EMPTY flag is non-nil, and supply an optional DEFAULT

-sequence. A reply of '%' defaults to the first sequence
+sequence. A reply of `%' defaults to the first sequence

 containing the current message."
   (let* ((input (completing-read (format "%s sequence%s: " prompt
                                          (if default
 containing the current message."
   (let* ((input (completing-read (format "%s sequence%s: " prompt
                                          (if default


@@ -556,7 +555,7 @@ change."
 ;;;###mh-autoload
 (defun mh-valid-view-change-operation-p (op)
   "Check if the view change operation can be performed.
 ;;;###mh-autoload
 (defun mh-valid-view-change-operation-p (op)
   "Check if the view change operation can be performed.

-OP is one of 'widen and 'unthread."
+OP is one of `widen' and `unthread'."

   (cond ((eq (car mh-view-ops) op)
          (pop mh-view-ops))
         (t nil)))
   (cond ((eq (car mh-view-ops) op)
          (pop mh-view-ops))
         (t nil)))


@@ -767,7 +766,7 @@ completion is over."
   "Parse LINE to generate folder name, unseen messages and total messages.
 If CURRENT-FOLDER is non-nil then it contains the current folder
 name and it is used to avoid problems in corner cases involving
   "Parse LINE to generate folder name, unseen messages and total messages.
 If CURRENT-FOLDER is non-nil then it contains the current folder
 name and it is used to avoid problems in corner cases involving

-folders whose names end with a '+' character."
+folders whose names end with a `+' character."

   (with-temp-buffer
     (insert line)
     (goto-char (point-max))
   (with-temp-buffer
     (insert line)
     (goto-char (point-max))


@@ -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