diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mail-utils.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 42bcbd38bd3..06199bcab6b 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el | |||
| @@ -75,9 +75,10 @@ Return a modified address list." | |||
| 75 | (match-end 0)))) | 75 | (match-end 0)))) |
| 76 | 76 | ||
| 77 | ;; Detect nested comments. | 77 | ;; Detect nested comments. |
| 78 | (if (string-match "[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" address) | 78 | (if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address) |
| 79 | ;; Strip nested comments. | 79 | ;; Strip nested comments. |
| 80 | (save-excursion | 80 | (save-excursion |
| 81 | (debug) | ||
| 81 | (set-buffer (get-buffer-create " *temp*")) | 82 | (set-buffer (get-buffer-create " *temp*")) |
| 82 | (erase-buffer) | 83 | (erase-buffer) |
| 83 | (insert address) | 84 | (insert address) |
| @@ -98,7 +99,7 @@ Return a modified address list." | |||
| 98 | (while (setq pos (string-match | 99 | (while (setq pos (string-match |
| 99 | ;; This doesn't hack rfc822 nested comments | 100 | ;; This doesn't hack rfc822 nested comments |
| 100 | ;; `(xyzzy (foo) whinge)' properly. Big deal. | 101 | ;; `(xyzzy (foo) whinge)' properly. Big deal. |
| 101 | "[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" | 102 | "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)" |
| 102 | address)) | 103 | address)) |
| 103 | (setq address | 104 | (setq address |
| 104 | (mail-string-delete address | 105 | (mail-string-delete address |