1753 (defun my--message-refine-filename (filename) |
1753 (defun my--message-refine-filename (filename) |
1754 (mapconcat |
1754 (mapconcat |
1755 (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-")) |
1755 (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-")) |
1756 filename "") ) |
1756 filename "") ) |
1757 |
1757 |
|
1758 (eval-when 'compile (require 'gnus)) |
|
1759 |
1758 (defun my--message-save () |
1760 (defun my--message-save () |
1759 "Store message in `gnus-article-save-directory' after |
1761 "Store message in `gnus-article-save-directory' after |
1760 successful sending. It is possible that mail rejected and I lost |
1762 successful sending. It is possible that mail rejected and I lost |
1761 it completely, this func save it for me." |
1763 it completely, this func save it for me." |
1762 (unless (eq major-mode 'message-mode) |
1764 (unless (eq major-mode 'message-mode) |
1794 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1796 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1795 (message "gnus, mh-e") |
1797 (message "gnus, mh-e") |
1796 |
1798 |
1797 (eval-when 'compile |
1799 (eval-when 'compile |
1798 (require 'gnus) |
1800 (require 'gnus) |
|
1801 (require 'gnus-agent) |
1799 (require 'gnus-start) |
1802 (require 'gnus-start) |
1800 (require 'gnus-score)) |
1803 (require 'gnus-score) |
|
1804 (require 'gnus-topic) |
|
1805 (require 'gnus-spec) |
|
1806 (require 'spam)) |
1801 |
1807 |
1802 ;; (setq gnus-verbose 10) |
1808 ;; (setq gnus-verbose 10) |
1803 |
1809 |
1804 (setq gnus-site-init-file "~/.gnus.el") |
1810 (setq gnus-site-init-file "~/.gnus.el") |
1805 |
1811 |
3225 (add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") )) )) |
3231 (add-to-list 'html-tag-alist '("style" (\n) ("type" "text/css") )) )) |
3226 |
3232 |
3227 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3233 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3228 (message "jsp") |
3234 (message "jsp") |
3229 |
3235 |
|
3236 (defvar jsp-font-lock-syntactic-keywords |
|
3237 '(("\\(<\\)%--" (1 "< b")) |
|
3238 ("--%\\(>\\)" (1 "> b")))) |
|
3239 |
3230 (define-derived-mode jsp-mode html-mode "JSP" |
3240 (define-derived-mode jsp-mode html-mode "JSP" |
3231 "JSP editing mode. Redefine HTML comment syntax to JSP." |
3241 "JSP editing mode. Redefine HTML comment syntax to JSP." |
3232 (setq comment-start "<%--") |
3242 (setq comment-start "<%--") |
3233 (setq comment-end "--%>") |
3243 (setq comment-end "--%>") |
3234 (setq comment-start-skip "<[!%]--[ \t]*") |
3244 (setq comment-start-skip "<[!%]--[ \t]*") |
3235 (setq comment-end-skip "[ \t]*--[% \t\n]*>") |
3245 (setq comment-end-skip "[ \t]*--[% \t\n]*>") |
3236 (setq jsp-font-lock-syntactic-keywords |
|
3237 '(("\\(<\\)%--" (1 "< b")) |
|
3238 ("--%\\(>\\)" (1 "> b")))) |
|
3239 (setcdr (assoc 'font-lock-syntactic-keywords font-lock-defaults) 'jsp-font-lock-syntactic-keywords) ) |
3246 (setcdr (assoc 'font-lock-syntactic-keywords font-lock-defaults) 'jsp-font-lock-syntactic-keywords) ) |
3240 |
3247 |
3241 (unless (featurep 'web-mode) |
3248 (unless (featurep 'web-mode) |
3242 (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . jsp-mode))) |
3249 (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . jsp-mode))) |
3243 |
3250 |