diff options
| author | Chong Yidong | 2009-01-23 19:02:31 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-01-23 19:02:31 +0000 |
| commit | 80cb4057f8c3f60e781ecbb9b1f8a66614e02dca (patch) | |
| tree | 216abdd1a5a2cc278e6e547a76643a1b9aacbbfe | |
| parent | a8f67b04836b9d3ed75f2138870ab04bf7fc1b34 (diff) | |
| download | emacs-80cb4057f8c3f60e781ecbb9b1f8a66614e02dca.tar.gz emacs-80cb4057f8c3f60e781ecbb9b1f8a66614e02dca.zip | |
(rmail-next-labeled-message): Correctly handle return value of
rmail-get-labels.
| -rw-r--r-- | lisp/mail/rmailkwd.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 0cf8f1b3849..165b1c96a7d 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el | |||
| @@ -142,9 +142,9 @@ With prefix argument N moves forward N messages with these labels." | |||
| 142 | (rmail-maybe-set-message-counters) | 142 | (rmail-maybe-set-message-counters) |
| 143 | (let ((lastwin rmail-current-message) | 143 | (let ((lastwin rmail-current-message) |
| 144 | (current rmail-current-message) | 144 | (current rmail-current-message) |
| 145 | (regexp (concat ", ?\\(" | 145 | (regexp (concat " ?\\(" |
| 146 | (mail-comma-list-regexp labels) | 146 | (mail-comma-list-regexp labels) |
| 147 | "\\),"))) | 147 | "\\)"))) |
| 148 | (while (and (> n 0) (< current rmail-total-messages)) | 148 | (while (and (> n 0) (< current rmail-total-messages)) |
| 149 | (setq current (1+ current)) | 149 | (setq current (1+ current)) |
| 150 | (if (string-match regexp (rmail-get-labels current)) | 150 | (if (string-match regexp (rmail-get-labels current)) |