equal
deleted
inserted
replaced
1712 file ) |
1712 file ) |
1713 (when (> (length field-to) 32) |
1713 (when (> (length field-to) 32) |
1714 (setq field-to (substring field-to 0 32))) |
1714 (setq field-to (substring field-to 0 32))) |
1715 (when (> (length field-subject) 64) |
1715 (when (> (length field-subject) 64) |
1716 (setq field-subject (substring field-subject 0 64))) |
1716 (setq field-subject (substring field-subject 0 64))) |
1717 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
1717 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%H-%M-%S") "_" field-to "_" field-subject)) |
1718 (with-temp-file file |
1718 (with-temp-file file |
1719 (insert-buffer buf) |
1719 (insert-buffer buf) |
1720 )) ) |
1720 )) ) |
1721 (add-hook 'message-sent-hook 'my-message-save) |
1721 (add-hook 'message-sent-hook 'my-message-save) |
1722 |
1722 |