344
344
((eq agent 'sendmail-user-agent)
348
(if (functionp 'etach-attach)
350
(mail-attach-file file))))
348
(if (functionp 'etach-attach)
350
(mail-attach-file file))))
351
351
((or (eq agent 'message-user-agent)(eq agent 'gnus-user-agent))
353
(mml-attach-file file "text/x-patch" "BZR merge" "inline")))
354
((eq agent 'mew-user-agent)
356
(mew-draft-prepare-attachments)
357
(mew-attach-link file (file-name-nondirectory file))
358
(let* ((nums (mew-syntax-nums))
359
(syntax (mew-syntax-get-entry mew-encode-syntax nums)))
360
(mew-syntax-set-cd syntax "BZR merge")
361
(mew-encode-syntax-print mew-encode-syntax))
362
(mew-header-goto-body)))
353
(mml-attach-file file "text/x-patch" "BZR merge" "inline")))
354
((eq agent 'mew-user-agent)
356
(mew-draft-prepare-attachments)
357
(mew-attach-link file (file-name-nondirectory file))
358
(let* ((nums (mew-syntax-nums))
359
(syntax (mew-syntax-get-entry mew-encode-syntax nums)))
360
(mew-syntax-set-cd syntax "BZR merge")
361
(mew-encode-syntax-print mew-encode-syntax))
362
(mew-header-goto-body)))
364
364
(message "Unhandled MUA, report it on bazaar@lists.canonical.com")))
365
365
(error "File %s does not exist." file))))