Y.A.S.D.

こんなことしてみたり。すぐやめるかも。 なぜ b かは秘密 (分かるって)。

(defadvice wl-generate-user-agent-string
  (after TT:remove-comments activate)
  (let ((case-fold-search nil))
    (while (string-match " ([^)b][^)]*)" ad-return-value)
      (setq ad-return-value (replace-match "" nil t ad-return-value)))))

Posted by つむら @ 11:20 PM JST (Emacs) [ Comments [0] ]