Show
Ignore:
Timestamp:
06/02/07 09:29:41 (1 year ago)
Author:
miyoshi
Message:

Sync up with Emacs_22_BASE.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/url/url-mailto.el

    r4190 r4210  
    101101      (if (string= (caar args) "body") 
    102102          (progn 
    103             (goto-char (point-max)) 
     103            (goto-char (point-min)) 
     104            (or (search-forward (concat "\n" mail-header-separator "\n") nil t) 
     105                (goto-char (point-max))) 
    104106            (insert (mapconcat  
    105107                     #'(lambda (string)