新着情報

新入荷

五橋 Z(five)ピンク 純米大吟醸 無ろ過生原酒國権 純米吟醸 生酒
published on

Wanderlustでgmail風なメール転送をするためのelisp

Wanderlustでgmail風なメール転送をするためのelisp ;; 締め切りに追われている時ほどコードを書きたくなるの法則! 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gmail-style forward (add-hook 'wl-summary-mode-hook (lambda () (define-key wl-summary-mode-map "F" 'my-wl-summary-forward))) (defun my-wl-summary-forward () (interactive) (let ((summary-buf (current-buffer)) (winconf (current-window-configuration)) (tmp-buf (get-buffer-create " *wl-draft-edit-string*")) mes-buf to subject in-reply-to cc references mail-followup-to content-type content-transfer-encoding from date to-alist cc-alist decoder string) (when (wl-summary-message-number) (save-excursion (wl-summary-set-message-buffer-or-redisplay)) (condition-case err (when (setq mes-buf (wl-message-get-original-buffer)) (setq string (wl-summary-message-string 'maybe)) (set-buffer tmp-buf) (erase-buffer) (insert string) (setq to (std11-field-body "To")) (setq subject (std11-field-body "Subject")) (setq subject (and subject (eword-decode-string (decode-mime-charset-string subject wl-mime-charset)))) (setq from (std11-field-body "From") from (and from (eword-decode-string (decode-mime-charset-string from wl-mime-charset)))) (setq cc (std11-field-body "Cc")) (setq date (std11-field-body "Date")) (setq in-reply-to (std11-field-body "Message-ID")) (setq references (nconc (std11-field-bodies '("References" "In-Reply-To")) (list in-reply-to)) references (delq nil references) references (mapconcat 'identity references " ") references (wl-draft-parse-msg-id-list-string references) references (wl-delete-duplicates references) references (when references (mapconcat 'identity references "\n\t"))) (setq mail-followup-to (std11-field-body "Mail-Followup-To")) (setq content-type (std11-field-body "Content-Type")) (setq content-transfer-encoding (std11-field-body "Content-Transfer-Encoding")) (goto-char (point-min)) (or (re-search-forward "\n\n" nil t) (search-forward (concat mail-header-separator "\n") nil t)) (unwind-protect (set-buffer (wl-draft (list (cons 'From (if (wl-address-user-mail-address-p from) from)) (cons 'To "") (cons 'Subject (wl-draft-forward-make-subject subject)) (cons 'Mail-Followup-To mail-followup-to) (cons 'In-Reply-To in-reply-to) (cons 'References references)) content-type content-transfer-encoding (buffer-substring (point) (point-max)) 'edit-again)) (kill-buffer tmp-buf)) ;; Set cursor point to the top. (goto-char (point-min)) (search-forward (concat mail-header-separator "\n") nil t) ;; (setq to (wl-parse-addresses to) cc (wl-parse-addresses cc)) (setq to-alist (mapcar (lambda (addr) (setq decoder (mime-find-field-decoder 'To 'plain)) (cons (nth 1 (std11-extract-address-components addr)) (if decoder (funcall decoder addr) addr))) to)) (setq cc-alist (mapcar (lambda (addr) (setq decoder (mime-find-field-decoder 'Cc 'plain)) (cons (nth 1 (std11-extract-address-components addr)) (if decoder (funcall decoder addr) addr))) cc)) (setq to (delq nil (mapcar 'car to-alist))) (setq cc (delq nil (mapcar 'car cc-alist))) (and to (setq to (mapconcat (lambda (addr) (if wl-draft-reply-use-address-with-full-name (or (cdr (assoc addr to-alist)) addr) addr)) to ",\n\t"))) (and cc (setq cc (mapconcat (lambda (addr) (if wl-draft-reply-use-address-with-full-name (or (cdr (assoc addr cc-alist)) addr) addr)) cc ",\n\t"))) (wl-draft-reply-position 'body) (insert (concat "\n-------- Forwarded Message --------\n" (and from (format "From: %s\n" from))
published on

新入荷

313号室にありますので、お好きにどうぞ! あと、次の飲み会のために、橋和屋で 鳳凰美田 純米吟醸 赤磐雄町 1.8l 五橋Five ピンク 純米大吟醸無濾過生原酒 1.8l 菊姫 山廃純米 無濾過生原酒 1.8l 買ってきてください! image
published on

4/4(火)花見開催!

4/4(火)18:10~より、洗足池でお花見やります! OB,OGの方もお待ちしております!ご都合つく方は是非ふるってご参加ください! 連絡は折原か松下にお願い致します。
published on

3月19日用

Takachiyo AIMACHI 純米吟醸 無調整生原酒愛山 22.5% 雄町 77.5% image あと、かがた屋にくどき上手の亀仙人がありました(4000円)。これお勧め。
published on

卒業写真

卒業写真とりました! IMG_9110 博士12名修士18名学部3名交流学生3名
published on

手島精一記念研究賞

手島精一記念研究賞の留学生研究賞を受賞しました!大学のホームページにも掲載頂きました! DSC08707_2 左から、Korkut Kaan TOKGOZさん、Zhijie CHENさん(の代理の岡田)、Lilan YUさん
published on

Prof. Kuboki visited our lab

We had a seminar by Prof. Kuboki about terahertz generation by the photomixing technique! Title: Photonics technology for Terahertz communicationSpeaker: Takeshi Kuboki, Kyushu University DSC_1873
published on

ISSCC Student-Research Preview Award

卒業生(現パナソニック)の眞木さんが、ISSCC 2016で発表した内容について、ISSCC Student-Research Preview Award(Honarable Montion)を受賞しました! Shotaro Maki, Yuuki Seo, Kenichi Okada, and Akira Matsuzawa, “A 64QAM 60GHz Transceiver with Automatic Image Calibration,” IEEE International Solid-State Circuits Conference (ISSCC) Student Research Preview, San Francisco, CA, Feb. 2016.
published on