equal
deleted
inserted
replaced
1276 it completely, this func save it for me." |
1276 it completely, this func save it for me." |
1277 (unless (eq major-mode 'message-mode) |
1277 (unless (eq major-mode 'message-mode) |
1278 (error "Attempt to call my-message-save in non message-mode buffer")) |
1278 (error "Attempt to call my-message-save in non message-mode buffer")) |
1279 (make-directory gnus-article-save-directory t) |
1279 (make-directory gnus-article-save-directory t) |
1280 (let ( (buf (current-buffer)) |
1280 (let ( (buf (current-buffer)) |
1281 (field-to (message-fetch-field "To")) |
1281 (field-to (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))) |
1282 (field-subject (or (message-fetch-field "Newsgroups") (message-fetch-field "Subject"))) |
1282 (field-subject (message-fetch-field "Subject")) |
1283 file ) |
1283 file ) |
1284 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
1284 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
1285 (with-temp-file file |
1285 (with-temp-file file |
1286 (insert-buffer buf) |
1286 (insert-buffer buf) |
1287 )) ) |
1287 )) ) |