* mm updates

2011-10-04 08:12:47 +03:00
parent a02464d307
commit 1bb15332c4
5 changed files with 20 additions and 36 deletions
--- a/toys/mm/mm-send.el
+++ b/toys/mm/mm-send.el
@ -407,7 +407,7 @@ This is meant to be called from message mode's
 	  (let ((refs))
 	    (while (re-search-forward "<[^ <]+@[^ <]+>" nil t)
 	      (push (match-string 0) refs))
-	    (setq forwarded-from (last refs))))))
+	    (setq forwarded-from (car-safe (last refs)))))))

    ;; remove the <>
    (when (and in-reply-to (string-match "<\\(.*\\)>" in-reply-to))