新着情報
新入荷
五橋 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
Korkutさんが電子情報通信学会エレクトロニクスソサイエティ学生奨励賞を受賞
Korkutさんが電子情報通信学会エレクトロニクスソサイエティ学生奨励賞を受賞しました! (追伸) 電気電子系のホームページにも掲載されました! DSC08715_2
published on
4/4(火)花見開催!
4/4(火)18:10~より、洗足池でお花見やります! OB,OGの方もお待ちしております!ご都合つく方は是非ふるってご参加ください! 連絡は折原か松下にお願い致します。
published on
卒業式!
卒業します!おめでとう! IMG_0042
published on
Seminar talk by Prof. Tsuchiya
Speaker: Prof. Akira Tsuchiya (Kyoto University)
Title: Impact of Probing Accuracy on On-Wafer Measurement Results
image
published on
3月19日用
Takachiyo AIMACHI 純米吟醸 無調整生原酒愛山 22.5% 雄町 77.5% image あと、かがた屋にくどき上手の亀仙人がありました(4000円)。これお勧め。
published on
新入荷
image
published on
新入荷!
くどき上手 出羽燦々33 純米大吟醸生 3333円 image
published on
卒業写真
卒業写真とりました! IMG_9110 博士12名修士18名学部3名交流学生3名
published on
手島精一記念研究賞
手島精一記念研究賞の留学生研究賞を受賞しました!大学のホームページにも掲載頂きました! DSC08707_2 左から、Korkut Kaan TOKGOZさん、Zhijie CHENさん(の代理の岡田)、Lilan YUさん
published on
新入荷!
image
published on
Lab party in San Francisco
We had a party with lab members just before the ISSCC in San Francisco!
Crustacean DSC08435 dungeness crab DSC08431
published on
新入荷!
image
published on
WiGig @ Narita airport
Panasonic WiGig trial @ Narita airport! 2017/2/16-2/24
Press Release (English) Press Release (Japanese) News article
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
焼き肉@二葉一階!
焼き肉食べましたー! image
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
研究室見学(学部3年生向け)
2/14(火) 15:00 2/15(水) 13:00 2/16(木) 15:00 で研究室の案内予定です。興味のある方は、南3号館314号室にお越しください! by 岡田
published on