From mboxrd@z Thu Jan 1 00:00:00 1970 Received: by 10.213.7.146 with SMTP id d18cs295193ebd; Sat, 16 Jan 2010 14:41:14 -0800 (PST) Received: by 10.224.63.134 with SMTP id b6mr3375445qai.246.1263681674074; Sat, 16 Jan 2010 14:41:14 -0800 (PST) Return-Path: Received: from rubyforge.org (rubyforge.org [205.234.109.19]) by mx.google.com with ESMTP id 6si8311814qwd.16.2010.01.16.14.41.13; Sat, 16 Jan 2010 14:41:14 -0800 (PST) Received-SPF: pass (google.com: domain of sup-devel-bounces@rubyforge.org designates 205.234.109.19 as permitted sender) client-ip=205.234.109.19; Authentication-Results: mx.google.com; spf=pass (google.com: domain of sup-devel-bounces@rubyforge.org designates 205.234.109.19 as permitted sender) smtp.mail=sup-devel-bounces@rubyforge.org Received: from rubyforge.org (rubyforge.org [127.0.0.1]) by rubyforge.org (Postfix) with ESMTP id 6E72618582DC; Sat, 16 Jan 2010 17:41:13 -0500 (EST) Received: from kuovi.tilus.net (kuovi.tilus.net [80.68.89.168]) by rubyforge.org (Postfix) with ESMTP id 63FA0185826F; Sat, 16 Jan 2010 17:41:10 -0500 (EST) Received: by kuovi.tilus.net (Postfix, from userid 1000) id AD8226011; Sun, 17 Jan 2010 00:41:09 +0200 (EET) From: Tero Tilus To: sup-talk In-reply-to: <1263574849-sup-3477@sam.mediasupervision.de> References: <1263574849-sup-3477@sam.mediasupervision.de> Date: Sun, 17 Jan 2010 00:41:09 +0200 Message-Id: <1263680819-sup-415@tilus.net> User-Agent: Sup/git Cc: Sup developers Subject: [sup-devel] [PATCH] Message#edit_labels [was: [sup-talk] Ruby question: before-add-message.rb and adding multiple labels at once] X-BeenThere: sup-devel@rubyforge.org X-Mailman-Version: 2.1.12 Precedence: list Reply-To: Sup developer discussion List-Id: Sup developer discussion List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Sender: sup-devel-bounces@rubyforge.org Errors-To: sup-devel-bounces@rubyforge.org Gregor Hoffleit, 2010-01-15 19:01: > Ok. I ended up with > > ([:list,:"sup-devel"].each {|l| message.add_label l}; message.remove_label :inbox) if message.subj =~ /\[sup-devel\]/ > > May I request a new function "message.edit_labels" that groks the syntax > of the 'edit labels' command (cf. multi_edit_labels in thread-index-mode.rb): > > message.edit_labels "list sup-devel -inbox" if message.subj =~ /\[sup-devel\]/ > > Comments? I'll be using that one too. Here's a patch. Message#edit_labels accepts array of strings. I thought it'll be better that way. Otherwise it gets really ugly with spaces in labels. So your usecase would be message.edit_labels %w{list sup-devel -inbox} if message.subj =~ /\[sup-devel\]/ By the way, my pretty general list-labeling code looks like this . And then the patch... >From 9eff953dbda404b149a77969305c5732fa1d694e Mon Sep 17 00:00:00 2001 From: Tero Tilus Date: Sun, 17 Jan 2010 00:23:26 +0200 Subject: [PATCH] Message#edit_labels Signed-off-by: Tero Tilus --- lib/sup/message.rb | 12 ++++++++++++ 1 files changed, 12 insertions(+), 0 deletions(-) diff --git a/lib/sup/message.rb b/lib/sup/message.rb index 3e55de5..e047927 100644 --- a/lib/sup/message.rb +++ b/lib/sup/message.rb @@ -206,6 +206,18 @@ class Message @labels.delete l @dirty = true end + ## calling m.edit_labels ['foo', '-index', '+bar'] + ## adds labels foo and bar and removes label index + def edit_labels l_arr + l_arr.each do |signedlabel| + signedlabel, sign, label = signedlabel.match(/^(-|\+)?(.*)$/).to_a + if sign == '-' + remove_label label + else + add_label label + end + end + end def recipients @to + @cc + @bcc -- 1.5.6.5 -- Tero Tilus ## 050 3635 235 ## http://tero.tilus.net/ _______________________________________________ Sup-devel mailing list Sup-devel@rubyforge.org http://rubyforge.org/mailman/listinfo/sup-devel