diff options
Diffstat (limited to 'lisp/mail/feedmail.el')
-rw-r--r-- | lisp/mail/feedmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index eaac5c17cd..43d4361763 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 ) |