- (if (and result
- (> start-char text-start))
- (push
- (list (mm-uu-copy-to-buffer text-start (point-max))
- '("text/plain") nil nil nil nil)
- result))
- (nreverse result))))
+ (when result
+ (if (> start-char text-start)
+ (push
+ (list (mm-uu-copy-to-buffer text-start (point-max))
+ '("text/plain") nil nil nil nil)
+ result))
+ (setq result (cons "multipart/mixed" (nreverse result))))
+ result)))