- (cond ((string-equal "B" encoding)
- (base64-decode-string string))
- ((string-equal "Q" encoding)
- (q-encoding-decode-string string))
- (t (message "unknown encoding %s" encoding)
+ (cond ((and (string-equal "B" encoding)
+ (string-match mime/B-encoded-text-regexp string))
+ (base64-decode-string string))
+ ((and (string-equal "Q" encoding)
+ (string-match mime/Q-encoded-text-regexp string))
+ (q-encoding-decode-string string))
+ (t (message "Invalid encoded-word %s" encoding)