Delete all trailing white space.

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index 45fbcf902a238bea745de7187a5e623c828f1abf..1e9769f757d8dfbac3def0c37cb81aa2b198f4f0 100644 (file)
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -95,7 +95,7 @@
   (let* ((elems (cdr (assq type ecomplete-database)))
         (match (regexp-quote match))
         (candidates
-         (sort 
+         (sort
           (loop for (key count time text) in elems
                 when (string-match match text)
                 collect (list count time text))

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index adc6be82184ab3ca9eeed5c512dff05c7eab8ed1..71ebfb59aff94ddc888a2d0b8e2f3bc658cb8b44 100644 (file)
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1788,7 +1788,7 @@ and that there are no duplicates."
     (while alist
       (let ((entry (pop alist)))
        (when (gnus-methods-equal-p gnus-command-method (gnus-info-method entry))
-         (gnus-agent-flush-group (gnus-info-group entry))))))) 
+         (gnus-agent-flush-group (gnus-info-group entry)))))))
 
 (defun gnus-agent-flush-group (group)
   "Flush the agent's index files such that the GROUP no longer
@@ -2162,13 +2162,13 @@ doesn't exist, to valid the overview buffer."
                (gnus-agent-save-alist gnus-agent-read-agentview)))
            alist))
       ((end-of-file file-error)
-       ;; The agentview file is missing. 
+       ;; The agentview file is missing.
        (condition-case nil
           ;; If the agent directory exists, attempt to perform a brute-force
           ;; reconstruction of its contents.
           (let* (alist
                  (file-name-coding-system nnmail-pathname-coding-system)
-                 (file-attributes (directory-files-and-attributes 
+                 (file-attributes (directory-files-and-attributes
                                    (gnus-agent-article-name ""
                                                             gnus-agent-read-agentview) nil "^[0-9]+$" t)))
             (while file-attributes
@@ -3258,7 +3258,7 @@ FORCE is equivalent to setting the expiration predicates to true."
           (gnus-message 7 "gnus-agent-expire: Loading overview...")
           (nnheader-insert-file-contents nov-file)
           (goto-char (point-min))
-       
+
           (let (p)
             (while (< (setq p (point)) (point-max))
               (condition-case nil

diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el
index 6043f26e3df2fbffade055ea1ed26b7849854c1b..e3f33be8819d9f28219313fec8cc1f1bf6e11ec4 100644 (file)
--- a/lisp/gnus/gnus-cache.el
+++ b/lisp/gnus/gnus-cache.el
@@ -868,7 +868,7 @@ supported."
           (while (setq file (pop files))
             (setq attrs (file-attributes file))
             (unless (nth 0 attrs)
-              (incf size (float (nth 7 attrs)))))))         
+              (incf size (float (nth 7 attrs)))))))
 
        (setq gnus-cache-need-update-total-fetched-for t)
 
@@ -879,10 +879,10 @@ supported."
     (gnus-cache-with-refreshed-group
      group
      (let* ((entry (or (gnus-gethash group gnus-cache-total-fetched-hashtb)
-                      (gnus-sethash group (make-list 2 0) 
+                      (gnus-sethash group (make-list 2 0)
                                     gnus-cache-total-fetched-hashtb)))
            (file-name-coding-system nnmail-pathname-coding-system)
-           (size (or (nth 7 (file-attributes 
+           (size (or (nth 7 (file-attributes
                              (or file
                                  (gnus-cache-file-name group ".overview"))))
                      0)))
@@ -911,7 +911,7 @@ supported."
       (if entry
          (apply '+ entry)
        (let ((gnus-cache-inhibit-update-total-fetched-for (not no-inhibit)))
-         (+ 
+         (+
           (gnus-cache-update-overview-total-fetched-for group nil)
           (gnus-cache-update-file-total-fetched-for     group nil)))))))
 

diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index 4f812c414c580501c28be1269543ce26b8bca523..f9502b43c06a71bdeca4bb3f73f637b976fbdaec 100644 (file)
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -204,7 +204,7 @@ If ARG is non-nil, open it in a new buffer."
                  (setq method
                        (cdr (assoc 'viewer
                                    (car (mailcap-mime-info mime-type
-                                                           'all 
+                                                           'all
                                                            'no-decode)))))))
            (let ((view-command (mm-mailcap-command method file-name nil)))
              (message "viewing via %s" view-command)

diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 5bbf5d5893b1b4adb04b39cd20e71384fb3f89f9..6824fbf7d39b496eb9ae801cb6db2c8f019e2d61 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -84,7 +84,7 @@ fit these criteria."
                       (not (eq charset 'ascii)))
              (mm-decode-coding-region (point-min) (point-max) charset))
            (call-process-region (point-min) (point-max)
-                                "w3m" 
+                                "w3m"
                                 nil article-buffer nil
                                 "-halfdump"
                                 "-no-cookie"
@@ -328,7 +328,7 @@ fit these criteria."
                 (push (gnus-html-image-id url) urls)
                 (push "-o" urls)))))
        (let ((process
-              (apply 'start-process 
+              (apply 'start-process
                      "images" nil "curl"
                      "-s" "--create-dirs"
                      "--location"

diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el
index 6edf82eb9c6a7159dcdcae83b9f26950f3f9076a..5eb8080ac0a8b0d741cc4991256e9c1f938a1d19 100644 (file)
--- a/lisp/gnus/gnus-range.el
+++ b/lisp/gnus/gnus-range.el
@@ -187,7 +187,7 @@ LIST1 and LIST2 have to be sorted over <."
 RANGE1 and RANGE2 have to be sorted over <."
   (let* (out
          (min1 (car range1))
-         (max1 (if (numberp min1) 
+         (max1 (if (numberp min1)
                    (if (numberp (cdr range1))
                        (prog1 (cdr range1)
                          (setq range1 nil)) min1)
@@ -196,8 +196,8 @@ RANGE1 and RANGE2 have to be sorted over <."
          (min2 (car range2))
          (max2 (if (numberp min2)
                    (if (numberp (cdr range2))
-                       (prog1 (cdr range2) 
-                         (setq range2 nil)) min2) 
+                       (prog1 (cdr range2)
+                         (setq range2 nil)) min2)
                  (prog1 (cdr min2)
                    (setq min2 (car min2))))))
     (setq range1 (cdr range1)

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index cd167bdf2bc8a43021d71a07645c7dcb8adfdbd6..5f945826941a0599e4caf369bbadcd45dc2a2953 100644 (file)
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -1,6 +1,6 @@
 ;;; gnus-registry.el --- article registry for Gnus
 
-;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 
+;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
 ;;; Free Software Foundation, Inc.
 
 ;; Author: Ted Zlatanov <tzz@lifelogs.com>
@@ -72,7 +72,7 @@
   :version "22.1"
   :group 'gnus)
 
-(defvar gnus-registry-hashtb (make-hash-table                      
+(defvar gnus-registry-hashtb (make-hash-table
                              :size 256
                              :test 'equal)
   "*The article registry by Message ID.")
@@ -97,7 +97,7 @@
   "List of registry marks and their options.
 
 `gnus-registry-mark-article' will offer symbols from this list
-for completion.  
+for completion.
 
 Each entry must have a character to be useful for summary mode
 line display and for keyboard shortcuts.
@@ -121,7 +121,7 @@ display."
   :group 'gnus-registry
   :type 'symbol)
 
-(defcustom gnus-registry-unfollowed-groups 
+(defcustom gnus-registry-unfollowed-groups
   '("delayed$" "drafts$" "queue$" "INBOX$")
   "List of groups that gnus-registry-split-fancy-with-parent won't return.
 The group names are matched, they don't have to be fully
@@ -206,9 +206,9 @@ considered precious) will not be trimmed."
   :group 'gnus-registry
   :type '(repeat symbol))
 
-(defcustom gnus-registry-cache-file 
-  (nnheader-concat 
-   (or gnus-dribble-directory gnus-home-directory "~/") 
+(defcustom gnus-registry-cache-file
+  (nnheader-concat
+   (or gnus-dribble-directory gnus-home-directory "~/")
    ".gnus.registry.eld")
   "File where the Gnus registry will be stored."
   :group 'gnus-registry
@@ -253,7 +253,7 @@ considered precious) will not be trimmed."
     (if gnus-save-startup-file-via-temp-buffer
        (let ((coding-system-for-write gnus-ding-file-coding-system)
              (standard-output (current-buffer)))
-         (gnus-gnus-to-quick-newsrc-format 
+         (gnus-gnus-to-quick-newsrc-format
           t "gnus registry startup file" 'gnus-registry-alist)
          (gnus-registry-cache-whitespace file)
          (save-buffer))
@@ -276,7 +276,7 @@ considered precious) will not be trimmed."
        (unwind-protect
            (progn
              (gnus-with-output-to-file working-file
-               (gnus-gnus-to-quick-newsrc-format 
+               (gnus-gnus-to-quick-newsrc-format
                 t "gnus registry startup file" 'gnus-registry-alist))
 
              ;; These bindings will mislead the current buffer
@@ -326,7 +326,7 @@ considered precious) will not be trimmed."
       (when gnus-registry-clean-empty
        (gnus-registry-clean-empty-function))
       ;; now trim and clean text properties from the registry appropriately
-      (setq gnus-registry-alist 
+      (setq gnus-registry-alist
            (gnus-registry-remove-alist-text-properties
             (gnus-registry-trim
              (gnus-hashtable-to-alist
@@ -346,7 +346,7 @@ considered precious) will not be trimmed."
         (dolist (group (gnus-registry-fetch-groups key))
           (when (gnus-parameter-registry-ignore group)
             (gnus-message
-             10 
+             10
              "gnus-registry: deleted ignored group %s from key %s"
              group key)
             (gnus-registry-delete-group key group)))
@@ -361,14 +361,14 @@ considered precious) will not be trimmed."
                  (gnus-registry-fetch-extra key 'label))
           (incf count)
           (gnus-registry-delete-id key))
-        
+
         (unless (stringp key)
-          (gnus-message 
-           10 
-           "gnus-registry key %s was not a string, removing" 
+          (gnus-message
+           10
+           "gnus-registry key %s was not a string, removing"
            key)
           (gnus-registry-delete-id key))))
-       
+
      gnus-registry-hashtb)
     count))
 
@@ -391,7 +391,7 @@ considered precious) will not be trimmed."
 (defun gnus-registry-trim (alist)
   "Trim alist to size, using gnus-registry-max-entries.
 Any entries with extra data (marks, currently) are left alone."
-  (if (null gnus-registry-max-entries)      
+  (if (null gnus-registry-max-entries)
       alist                             ; just return the alist
     ;; else, when given max-entries, trim the alist
     (let* ((timehash (make-hash-table
@@ -420,25 +420,25 @@ Any entries with extra data (marks, currently) are left alone."
              (push item precious-list)
            (push item junk-list))))
 
-      (sort 
+      (sort
        junk-list
        (lambda (a b)
-        (let ((t1 (or (cdr (gethash (car a) timehash)) 
+        (let ((t1 (or (cdr (gethash (car a) timehash))
                       '(0 0 0)))
-              (t2 (or (cdr (gethash (car b) timehash)) 
+              (t2 (or (cdr (gethash (car b) timehash))
                       '(0 0 0))))
           (time-less-p t1 t2))))
 
       ;; we use the return value of this setq, which is the trimmed alist
       (setq alist (append precious-list
                          (nthcdr trim-length junk-list))))))
-  
+
 (defun gnus-registry-action (action data-header from &optional to method)
   (let* ((id (mail-header-id data-header))
         (subject (gnus-string-remove-all-properties
                   (gnus-registry-simplify-subject
                    (mail-header-subject data-header))))
-        (sender (gnus-string-remove-all-properties 
+        (sender (gnus-string-remove-all-properties
                  (mail-header-from data-header)))
         (from (gnus-group-guess-full-name-from-command-method from))
         (to (if to (gnus-group-guess-full-name-from-command-method to) nil))
@@ -489,7 +489,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
   (let* ((refstr (or (message-fetch-field "references") "")) ; guaranteed
         (reply-to (message-fetch-field "in-reply-to"))      ; may be nil
         ;; now, if reply-to is valid, append it to the References
-        (refstr (if reply-to 
+        (refstr (if reply-to
                     (concat refstr " " reply-to)
                   refstr))
         ;; these may not be used, but the code is cleaner having them up here
@@ -517,8 +517,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
         9
         "%s is looking for matches for reference %s from [%s]"
         log-agent reference refstr)
-       (dolist (group (gnus-registry-fetch-groups 
-                       reference 
+       (dolist (group (gnus-registry-fetch-groups
+                       reference
                        gnus-registry-max-track-groups))
          (when (and group (gnus-registry-follow-group-p group))
            (gnus-message
@@ -528,9 +528,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
            (push group found))))
       ;; filter the found groups and return them
       ;; the found groups are the full groups
-      (setq found (gnus-registry-post-process-groups 
+      (setq found (gnus-registry-post-process-groups
                   "references" refstr found found)))
-     
+
      ;; else: there were no matches, now try the extra tracking by sender
      ((and (gnus-registry-track-sender-p)
           sender
@@ -543,7 +543,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
               matches)
           (when (and this-sender
                      (equal sender this-sender))
-            (let ((groups (gnus-registry-fetch-groups 
+            (let ((groups (gnus-registry-fetch-groups
                            key
                            gnus-registry-max-track-groups)))
               (dolist (group groups)
@@ -558,9 +558,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        gnus-registry-hashtb)
       ;; filter the found groups and return them
       ;; the found groups are NOT the full groups
-      (setq found (gnus-registry-post-process-groups 
+      (setq found (gnus-registry-post-process-groups
                   "sender" sender found found-full)))
-      
+
      ;; else: there were no matches, now try the extra tracking by subject
      ((and (gnus-registry-track-subject-p)
           subject
@@ -572,7 +572,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
               matches)
           (when (and this-subject
                      (equal subject this-subject))
-            (let ((groups (gnus-registry-fetch-groups 
+            (let ((groups (gnus-registry-fetch-groups
                            key
                            gnus-registry-max-track-groups)))
               (dolist (group groups)
@@ -587,7 +587,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        gnus-registry-hashtb)
       ;; filter the found groups and return them
       ;; the found groups are NOT the full groups
-      (setq found (gnus-registry-post-process-groups 
+      (setq found (gnus-registry-post-process-groups
                   "subject" subject found found-full))))
     ;; after the (cond) we extract the actual value safely
     (car-safe found)))
@@ -627,7 +627,7 @@ necessary."
                             (lambda (a b)
                               (> (gethash a freq 0)
                                  (gethash b freq 0)))))))))
-    
+
     (if gnus-registry-use-long-group-names
        (dolist (group groups)
          (let ((m1 (gnus-find-method-for-group group))
@@ -708,8 +708,8 @@ Consults `gnus-registry-unfollowed-groups' and
        (unless (member gnus-newsgroup-name (gnus-registry-fetch-groups id))
          (gnus-message 9 "Registry: Registering article %d with group %s"
                        article gnus-newsgroup-name)
-         (gnus-registry-add-group 
-          id 
+         (gnus-registry-add-group
+          id
           gnus-newsgroup-name
           (gnus-registry-fetch-simplified-message-subject-fast article)
           (gnus-registry-fetch-sender-fast article)))))))
@@ -785,18 +785,18 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
                  (shortcut (if remove (upcase shortcut) shortcut)))
             (unintern function-name)
             (eval
-             `(defun 
+             `(defun
                 ;; function name
-                ,(intern function-name) 
+                ,(intern function-name)
                 ;; parameter definition
                 (&rest articles)
                 ;; documentation
-                ,(format 
+                ,(format
                   "%s the %s mark over process-marked ARTICLES."
                   (upcase-initials variant-name)
                   mark)
                 ;; interactive definition
-                (interactive 
+                (interactive
                  (gnus-summary-work-articles current-prefix-arg))
                 ;; actual code
 
@@ -807,49 +807,49 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
 
                 ;; now the user is asked if gnus-registry-install is 'ask
                 (when (gnus-registry-install-p)
-                  (gnus-registry-set-article-mark-internal 
+                  (gnus-registry-set-article-mark-internal
                    ;; all this just to get the mark, I must be doing it wrong
                    (intern ,(symbol-name mark))
                    articles ,remove t)
                   (gnus-message
-                   9 
+                   9
                    "Applying mark %s to %d articles"
                    ,(symbol-name mark) (length articles))
                   (dolist (article articles)
-                    (gnus-summary-update-article 
+                    (gnus-summary-update-article
                      article
                      (assoc article (gnus-data-list nil)))))))
             (push (intern function-name) keys-plist)
-            (push shortcut keys-plist)      
+            (push shortcut keys-plist)
             (push (vector (format "%s %s"
                                   (upcase-initials variant-name)
                                   (symbol-name mark))
                           (intern function-name) t)
                   gnus-registry-misc-menus)
             (gnus-message
-             9 
-             "Defined mark handling function %s" 
+             9
+             "Defined mark handling function %s"
              function-name))))))
     (gnus-define-keys-1
      '(gnus-registry-mark-map "M" gnus-summary-mark-map)
      keys-plist)
     (add-hook 'gnus-summary-menu-hook
              (lambda ()
-               (easy-menu-add-item 
+               (easy-menu-add-item
                 gnus-summary-misc-menu
-                nil 
+                nil
                 (cons "Registry Marks" gnus-registry-misc-menus))))))
 
 ;;; use like this:
-;;; (defalias 'gnus-user-format-function-M 
+;;; (defalias 'gnus-user-format-function-M
 ;;;           'gnus-registry-user-format-function-M)
 (defun gnus-registry-user-format-function-M (headers)
   (let* ((id (mail-header-message-id headers))
         (marks (when id (gnus-registry-fetch-extra-marks id))))
     (apply 'concat (mapcar (lambda(mark)
-                            (let ((c 
+                            (let ((c
                                    (plist-get
-                                    (cdr-safe 
+                                    (cdr-safe
                                      (assoc mark gnus-registry-marks))
                                     :char)))
                               (if c
@@ -859,9 +859,9 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
 
 (defun gnus-registry-read-mark ()
   "Read a mark name from the user with completion."
-  (let ((mark (gnus-completing-read-with-default 
+  (let ((mark (gnus-completing-read-with-default
               (symbol-name gnus-registry-default-mark)
-              "Label" 
+              "Label"
               (mapcar (lambda (x)      ; completion list
                         (cons (symbol-name (car-safe x)) (car-safe x)))
                       gnus-registry-marks))))
@@ -896,7 +896,7 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
          (gnus-message 1 "%s mark %s with message ID %s, resulting in %S"
                        (if remove "Removing" "Adding")
                        mark id new-marks))
-       
+
        (apply 'gnus-registry-store-extra-marks ; set the extra marks
               id                               ; for the message ID
               new-marks)))))
@@ -1007,7 +1007,7 @@ The message must have at least one group name."
   "Put a specific entry in the extras field of the registry entry for id."
   (let* ((extra (gnus-registry-fetch-extra id))
         ;; all the entries except the one for `key'
-        (the-rest (gnus-assq-delete-all key (gnus-registry-fetch-extra id))) 
+        (the-rest (gnus-assq-delete-all key (gnus-registry-fetch-extra id)))
         (alist (if value
                    (gnus-registry-remove-alist-text-properties
                     (cons (cons key value)
@@ -1034,7 +1034,7 @@ Returns the first place where the trail finds a group name."
     (dolist (crumb trail)
       (when (stringp crumb)
        ;; push the group name into the list
-       (setq 
+       (setq
         groups
         (cons
          (if (or (not (stringp crumb)) gnus-registry-use-long-group-names)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index daf7a0e7f5d5cb9eda835809ae17042ef052d20b..2a332f7c420fd71a2039c3a0ae1d25d3c3da59b0 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -765,7 +765,7 @@ prompt the user for the name of an NNTP server to use."
     (when gnus-select-method
       (push (cons "native" gnus-select-method)
            gnus-predefined-server-alist))
-    
+
     (if gnus-agent
        (gnus-agentize))
 

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index aebe5de8dca422b0bb185d7af66dd23356737648..ec15e98239050b4012bbf208dce5c064b0f5388b 100644 (file)
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -466,10 +466,10 @@ the `mail-source-keyword-map' variable."
           ;; 1) the auth-sources user and password override everything
           ;; 2) it avoids macros, so it's cleaner
           ;; 3) it falls through to the mail-sources and then default values
-          (cond 
+          (cond
            ((and
             (eq keyword :user)
-            (setq user-auth 
+            (setq user-auth
                   (nth 0 (auth-source-user-or-password
                           '("login" "password")
                           ;; this is "host" in auth-sources

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 760345b326c1caad977124e735d74b82cea7f884..feef4b9e8ef123b8b385d307c9c11d11e5840cb0 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6687,7 +6687,7 @@ want to get rid of this query permanently.")))
                    (setq recipients (delq recip recipients))))))))
 
       (setq recipients (message-prune-recipients recipients))
-      
+
       ;; Build the header alist.  Allow the user to be asked whether
       ;; or not to reply to all recipients in a wide reply.
       (setq follow-to (list (cons 'To (cdr (pop recipients)))))
@@ -6704,7 +6704,7 @@ want to get rid of this query permanently.")))
 (defun message-prune-recipients (recipients)
   (dolist (rule message-prune-recipient-rules)
     (let ((match (car rule))
-         dup-match 
+         dup-match
          address)
       (dolist (recipient recipients)
        (setq address (car recipient))

diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index f844f3b9a80f797fc3dd6f8535a8b5a3f0353213..83b38c8ae1e4f554f21f74d7f8d5166f94a8392c 100644 (file)
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -441,7 +441,7 @@ apply the face `mm-uu-extract'."
 (defun mm-uu-yenc-extract ()
   ;; This might not be exactly correct, but we sure can't get the
   ;; binary data from the article buffer, since that's already in a
-  ;; non-binary charset.  So get it from the original article buffer. 
+  ;; non-binary charset.  So get it from the original article buffer.
   (mm-make-handle (with-current-buffer gnus-original-article-buffer
                    (mm-uu-copy-to-buffer start-point end-point))
                  (list (or (and file-name

diff --git a/lisp/gnus/nnagent.el b/lisp/gnus/nnagent.el
index 69e2702380f5853cc914ef8f5de29225698ba1c8..263d721dad21615deb2c1e5022e96fcd3b7d9038 100644 (file)
--- a/lisp/gnus/nnagent.el
+++ b/lisp/gnus/nnagent.el
@@ -121,7 +121,7 @@
 (deffoo nnagent-request-set-mark (group action server)
   (mm-with-unibyte-buffer
     (insert "(gnus-agent-synchronize-group-flags \""
-           group 
+           group
            "\" '")
     (gnus-pp action)
     (insert " \""
@@ -151,7 +151,7 @@
       ;; Assume that articles with smaller numbers than the first one
       ;; Agent knows are gone.
       (setq first (caar gnus-agent-article-alist))
-      (when first 
+      (when first
        (while (and arts (< (car arts) first))
          (pop arts)))
       (set-buffer nntp-server-buffer)

diff --git a/lisp/gnus/nnbabyl.el b/lisp/gnus/nnbabyl.el
index 555036672b60c0ddb6a6eef588f230749a2bec08..58e848bcb5ca4fa82c1e7d9ecaf43af6f1b40543 100644 (file)
--- a/lisp/gnus/nnbabyl.el
+++ b/lisp/gnus/nnbabyl.el
@@ -344,7 +344,7 @@
         (while (re-search-backward "^X-Gnus-Newsgroup: " beg t)
           (delete-region (point) (progn (forward-line 1) (point)))))
        (when nnmail-cache-accepted-message-ids
-        (nnmail-cache-insert (nnmail-fetch-field "message-id") 
+        (nnmail-cache-insert (nnmail-fetch-field "message-id")
                              group
                              (nnmail-fetch-field "subject")
                              (nnmail-fetch-field "from")))
@@ -363,7 +363,7 @@
        (insert-buffer-substring buf)
        (when last
         (when nnmail-cache-accepted-message-ids
-          (nnmail-cache-insert (nnmail-fetch-field "message-id") 
+          (nnmail-cache-insert (nnmail-fetch-field "message-id")
                                group
                                (nnmail-fetch-field "subject")
                                (nnmail-fetch-field "from")))

diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index 6acae6dcdd5e09066f5402866f85d69771cd9601..ddeac7f9523220e6d751f6bd258ea59d3bd4e8fe 100644 (file)
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -100,7 +100,7 @@ from the document.")
      (head-end . "^\t")
      (generate-head-function . nndoc-generate-clari-briefs-head)
      (article-transform-function . nndoc-transform-clari-briefs))
-    
+
     (standard-digest
      (first-article . ,(concat "^" (make-string 70 ?-) "\n *\n+"))
      (article-begin . ,(concat "^\n" (make-string 30 ?-) "\n *\n+"))

diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el
index 13efd8c509228b37c0f959bebdd7d407567ea533..dd2b8a6b48d29b86724f06a3a85b9532c1f55588 100644 (file)
--- a/lisp/gnus/nndraft.el
+++ b/lisp/gnus/nndraft.el
@@ -202,7 +202,7 @@ are generated if and only if they are also in `message-draft-headers'.")
                        'nnmh-request-group
                        (list group server dont-check)))
 
-(deffoo nndraft-request-move-article (article group server accept-form 
+(deffoo nndraft-request-move-article (article group server accept-form
                                      &optional last move-is-internal)
   (nndraft-possibly-change-group group)
   (let ((buf (get-buffer-create " *nndraft move*"))

diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el
index 6923c5386731c9b9dc1335787aca7e82c0531c8e..6413e98cc1ea6bbb6f879563d09f07f8fa492a37 100644 (file)
--- a/lisp/gnus/nnfolder.el
+++ b/lisp/gnus/nnfolder.el
@@ -494,7 +494,7 @@ the group.  Then the marks file will be regenerated properly by Gnus.")
       (nnfolder-save-active nnfolder-group-alist nnfolder-active-file)
       (gnus-sorted-difference articles (nreverse deleted-articles)))))
 
-(deffoo nnfolder-request-move-article (article group server accept-form 
+(deffoo nnfolder-request-move-article (article group server accept-form
                                               &optional last move-is-internal)
   (save-excursion
     (let ((buf (get-buffer-create " *nnfolder move*"))
@@ -552,7 +552,7 @@ the group.  Then the marks file will be regenerated properly by Gnus.")
        (while (re-search-backward (concat "^" nnfolder-article-marker) nil t)
          (delete-region (point) (progn (forward-line 1) (point))))
        (when nnmail-cache-accepted-message-ids
-         (nnmail-cache-insert (nnmail-fetch-field "message-id") 
+         (nnmail-cache-insert (nnmail-fetch-field "message-id")
                               group
                               (nnmail-fetch-field "subject")
                               (nnmail-fetch-field "from")))

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index be89332249ea2a7098d642dfe662b5a28eb3044a..6096c6fb3747149555130267d856828e5e78da2d 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -792,7 +792,7 @@ and show thread that contains this article."
              (setq novitem (funcall nnir-get-article-nov-override-function
                                     artitem))
          ;; else, set novitem through nnheader-parse-nov/nnheader-parse-head
-           (case (setq foo (gnus-retrieve-headers (list artno) 
+           (case (setq foo (gnus-retrieve-headers (list artno)
                                                   artfullgroup nil))
              (nov
               (goto-char (point-min))

diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index ede10a45662174be78774002322b70e57bcade8f..04db76b942ab4558b3d9260b6f3edf003dfde504 100644 (file)
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -556,7 +556,7 @@ Other back ends might or might not work.")
            (mapcar
             (lambda (arg) (- arg numcorr))
             articles)))
-    (setq rval 
+    (setq rval
          (if (eq nnmairix-backend 'nnimap)
              (let ((gnus-nov-is-evil t))
                (nnmairix-call-backend

diff --git a/lisp/gnus/nnmh.el b/lisp/gnus/nnmh.el
index a39f7fb039829f0ca128524e8fd573d1250d71f3..05eb669fa0bdbbf79daee253afa622b3af6ea381 100644 (file)
--- a/lisp/gnus/nnmh.el
+++ b/lisp/gnus/nnmh.el
@@ -287,7 +287,7 @@ as unread by Gnus.")
 (deffoo nnmh-close-group (group &optional server)
   t)
 
-(deffoo nnmh-request-move-article (article group server accept-form 
+(deffoo nnmh-request-move-article (article group server accept-form
                                           &optional last move-is-internal)
   (let ((buf (get-buffer-create " *nnmh move*"))
        result)
@@ -312,7 +312,7 @@ as unread by Gnus.")
   (nnmh-possibly-change-directory group server)
   (nnmail-check-syntax)
   (when nnmail-cache-accepted-message-ids
-    (nnmail-cache-insert (nnmail-fetch-field "message-id") 
+    (nnmail-cache-insert (nnmail-fetch-field "message-id")
                         group
                         (nnmail-fetch-field "subject")
                         (nnmail-fetch-field "from")))

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 1d6c6a52444ae8404b16ceed46ab9698f2412755..5373230fd8ec7f5d2bef326d8564354916e52971 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -309,8 +309,8 @@ port number on server.  The program should accept IMAP commands on
 stdin and return responses to stdout.")
 
 (defvar nntp-authinfo-rejected nil
-"A custom error condition used to report 'Authentication Rejected' errors.  
-Condition handlers that match just this condition ensure that the nntp 
+"A custom error condition used to report 'Authentication Rejected' errors.
+Condition handlers that match just this condition ensure that the nntp
 backend doesn't catch this error.")
 (put 'nntp-authinfo-rejected 'error-conditions '(error nntp-authinfo-rejected))
 (put 'nntp-authinfo-rejected 'error-message "Authorization Rejected")
@@ -2013,7 +2013,7 @@ Please refer to the following variables to customize the connection:
     (and nntp-pre-command (push nntp-pre-command command))
     (let ((process-connection-type nil)) ;See `nntp-open-via-rlogin-and-netcat'.
       (apply 'start-process "nntpd" buffer command))))
- 
+
 
 (defun nntp-open-via-telnet-and-telnet (buffer)
   "Open a connection to an nntp server through an intermediate host.

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 34bf71df52029a0ad75befdeea79b7d4e905a1a5..be9ed179d2839466f98373463cc86b32ab9dcce5 100644 (file)
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -102,7 +102,7 @@ thing can fall apart and leave you with a corrupt mailbox."
   "*If non-nil, display the size of the message that is being fetched."
   :version "22.1" ;; Oort Gnus
   :type 'boolean
-  :group 'pop3) 
+  :group 'pop3)
 
 (defvar pop3-timestamp nil
   "Timestamp returned when initially connected to the POP server.
@@ -167,7 +167,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
                       (/ (cdr (assoc n message-sizes))
                          1024.0))
            (message "Retrieving message %d of %d from %s..."
-                    n message-count pop3-mailhost))      
+                    n message-count pop3-mailhost))
          (pop3-retr process n crashbuf)
          (save-excursion
            (set-buffer crashbuf)
@@ -283,7 +283,7 @@ Returns the process associated with the connection."
                    (pop3-quit process)
                    (error "POP server doesn't support starttls")))
                process))
-            (t 
+            (t
              (open-network-stream "POP" (current-buffer) mailhost port))))
       (let ((response (pop3-read-response process t)))
        (setq pop3-timestamp
@@ -468,7 +468,7 @@ If NOW, use that time instead."
 (defun pop3-list (process &optional msg)
   "If MSG is nil, return an alist of (MESSAGE-ID . SIZE) pairs.
 Otherwise, return the size of the message-id MSG"
-  (pop3-send-command process (if msg 
+  (pop3-send-command process (if msg
                                 (format "LIST %d" msg)
                               "LIST"))
   (let ((response (pop3-read-response process t)))

diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 0cf12590cbf77634d07a4185d7b382445fd93c8c..0f16444ca39aa60f2fcb8180be66004f9b48eb6d 100644 (file)
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -335,7 +335,7 @@ Returns t if login was successful, nil otherwise."
 (defun sieve-sasl-auth (buffer mech)
   "Login to server using the SASL MECH method."
   (message "sieve: Authenticating using %s..." mech)
-  (if (sieve-manage-interactive-login 
+  (if (sieve-manage-interactive-login
        buffer
        (lambda (user passwd)
         (let (client step tag data rsp)

diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el
index 31dc1cf843876e70480a137bb87b589ca6246080..0e4576ae3f51654f3e0070d4451c6140e9e31f63 100644 (file)
--- a/lisp/gnus/spam-report.el
+++ b/lisp/gnus/spam-report.el
@@ -95,12 +95,12 @@ undo that change.")
   "Report an article as spam by resending via email.
 Reports is as ham when HAM is set."
   (dolist (article articles)
-    (gnus-message 6 
+    (gnus-message 6
                  "Reporting %s article %d to <%s>..."
                  (if ham "ham" "spam")
                  article spam-report-resend-to)
     (unless spam-report-resend-to
-      (customize-set-variable 
+      (customize-set-variable
        spam-report-resend-to
        (read-from-minibuffer "email address to resend SPAM/HAM to? ")))
     ;; This is ganked from the `gnus-summary-resend-message' function.

diff --git a/lisp/net/dns.el b/lisp/net/dns.el
index dfa17995a23d8cfd6e76d03331bef03c718105b5..2d4c2d8cd8b2bc3437fb249e5ebd29e75ef623ae 100644 (file)
--- a/lisp/net/dns.el
+++ b/lisp/net/dns.el
@@ -151,7 +151,7 @@ If TCP-P, the first two bytes of the package with be the length field."
       (lsh (if (dns-get 'truncated-p spec) 1 0) -1)
       (lsh (if (dns-get 'recursion-desired-p spec) 1 0) 0)))
     (dns-write-bytes
-     (cond 
+     (cond
       ((eq (dns-get 'response-code spec) 'no-error) 0)
       ((eq (dns-get 'response-code spec) 'format-error) 1)
       ((eq (dns-get 'response-code spec) 'server-failure) 2)

diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index e5bc3a83b55bcabef7d0c0b09161e224d40ac127..31646176b4622b9f4d6091b10444835c046c671d 100644 (file)
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -1227,7 +1227,7 @@ password is remembered in the buffer."
       (when user (setq imap-username user))
       (when passwd (setq imap-password passwd))
       (if imap-auth
-         (and (setq imap-last-authenticator 
+         (and (setq imap-last-authenticator
                     (assq imap-auth imap-authenticator-alist))
               (funcall (nth 2 imap-last-authenticator) (current-buffer))
               (setq imap-state 'auth))

diff --git a/lisp/net/netrc.el b/lisp/net/netrc.el
index 5252134367e8696a334883ace8bb4da89df8e2bb..2306927f080c1d8811874de37add6cc02e735693 100644 (file)
--- a/lisp/net/netrc.el
+++ b/lisp/net/netrc.el
@@ -160,9 +160,9 @@ MODE can be \"login\" or \"password\", suitable for passing to
        (defaults (or defaults '(nil)))
        info)
     (if (listp mode)
-       (setq info 
-             (mapcar 
-              (lambda (mode-element) 
+       (setq info
+             (mapcar
+              (lambda (mode-element)
                 (netrc-machine-user-or-password
                  mode-element
                  authinfo-list

diff --git a/lisp/net/ntlm.el b/lisp/net/ntlm.el
index 8e9330c46d0d89521aab916a47fa16025dab983f..517e97efe6cc7e8db27603231eeb41f96b3855ed 100644 (file)
--- a/lisp/net/ntlm.el
+++ b/lisp/net/ntlm.el
@@ -27,9 +27,9 @@
 ;; This library is a direct translation of the Samba release 2.2.0
 ;; implementation of Windows NT and LanManager compatible password
 ;; encryption.
-;; 
+;;
 ;; Interface functions:
-;; 
+;;
 ;; ntlm-build-auth-request
 ;;   This will return a binary string, which should be used in the
 ;;   base64 encoded form and it is the caller's responsibility to encode
@@ -40,7 +40,7 @@
 ;;   (which will be a binary string) as the first argument and to
 ;;   encode the returned string with base64.  The second argument user
 ;;   should be given in user@domain format.
-;; 
+;;
 ;; ntlm-get-password-hashes
 ;;
 ;;

diff --git a/lisp/net/sasl-digest.el b/lisp/net/sasl-digest.el
index 6db95c6904eba44dc0c6bc15abb424d6f99d1b7c..8559c8f3fa9ecd78ffee03bb7042ab7fcb8bcf5d 100644 (file)
--- a/lisp/net/sasl-digest.el
+++ b/lisp/net/sasl-digest.el
@@ -95,10 +95,10 @@ charset algorithm cipher-opts auth-param)."
         (md5-binary
          (concat
           (encode-hex-string
-           (md5-binary (concat (md5-binary 
+           (md5-binary (concat (md5-binary
                                 (concat username ":" realm ":" passphrase))
                                ":" nonce ":" cnonce
-                               (if authzid 
+                               (if authzid
                                    (concat ":" authzid)))))
           ":" nonce
           ":" (format "%08x" nonce-count) ":" cnonce ":" qop ":"