diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 4 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 2 | ||||
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index eaac5c17cd3..43d43617631 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -2261,9 +2261,9 @@ the counts." (while (string-match feedmail-queue-slug-suspect-regexp slug) (setq slug (replace-match "-" nil nil slug))) ;; collapse multiple hyphens to one (while (string-match "--+" slug) (setq slug (replace-match "-" nil nil slug))) - ;; for tidyness, peel off leading hyphens + ;; for tidiness, peel off leading hyphens (if (string-match "^-*" slug) (setq slug (replace-match "" nil nil slug))) - ;; for tidyness, peel off trailing hyphens + ;; for tidiness, peel off trailing hyphens (if (string-match "-*$" slug) (setq slug (replace-match "" nil nil slug))) slug ) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a8efe10ec76..e2bbdd0a6bd 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -4504,7 +4504,7 @@ With prefix argument N moves forward N messages with these labels. ;;;*** -;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "6296f0170a37670c49a88a1b92d78187") +;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "3aa9747bf925bd2cd450f4b1f9c7cd03") ;;; Generated autoloads from rmailmm.el (autoload 'rmail-mime "rmailmm" "\ diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 026b03e350f..bc38b10124e 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -975,7 +975,7 @@ The list is in preference order.") (subst-char-in-region (point-min) (point-max) 9 ? t) ; tab --> blank (goto-char (point-min)) - ;; tidyness in case hook is not robust when it looks at this + ;; tidiness in case hook is not robust when it looks at this (while (re-search-forward "[ \t]+" header-end t) (replace-match " ")) (goto-char (point-min)) |