Browse code
bugfix.
dancy authored on 05/06/2007 17:34:50
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -14,7 +14,7 @@ |
14 | 14 |
;; merchantability or fitness for a particular purpose. See the GNU |
15 | 15 |
;; Lesser General Public License for more details. |
16 | 16 |
;; |
17 |
-;; $Id: rfc2822.cl,v 1.6 2007/06/05 17:15:18 dancy Exp $ |
|
17 |
+;; $Id: rfc2822.cl,v 1.7 2007/06/05 17:34:50 dancy Exp $ |
|
18 | 18 |
|
19 | 19 |
#+(version= 8 0) |
20 | 20 |
(sys:defpatch "rfc2822" 0 |
... | ... |
@@ -239,7 +239,7 @@ domain. |
239 | 239 |
(parse-mailbox-list string start end require-domain) |
240 | 240 |
(setf start newpos) |
241 | 241 |
(when (parse-special #\; t) |
242 |
- (values :group mailbox-list newpos))))))) |
|
242 |
+ (values (list :group mailbox-list) newpos))))))) |
|
243 | 243 |
|
244 | 244 |
(defun parse-mailbox-list (string start end require-domain) |
245 | 245 |
(let (res) |