Browse code
bug18646: make sure argument to decode-header-text is non-nil
Kevin Layer authored on 21/12/2009 23:00:30
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -425,6 +425,7 @@ This is a multi-part message in MIME format.~%")) |
425 | 425 |
(defun decode-header-text (text) |
426 | 426 |
(declare (optimize (speed 3)) |
427 | 427 |
(string text)) |
428 |
+ (when (null text) (error "first argument expected to be non-nil.")) |
|
428 | 429 |
(let ((pos 0) |
429 | 430 |
(len (length text)) |
430 | 431 |
last-tail) |